···

       
33
       
33
       
 
       
          match to_str with

     

       
34
       
34
       
 
       
          | None -> Ok None

     

       
35
       
35
       
 
       
          | Some s ->

     

       
36
       
36
       
-
       
              let* d = Date.parse_date ~tz s `From in

     

       
36
       
36
       
+
       
              let* d = Date.parse_date ~tz s `To in

     

       
37
       
37
       
 
       
              Ok (Some d)

     

       
38
       
38
       
 
       
        in

     

       
39
       
39
       
 
       
        match (from, to_) with

     

···

       
35
       
35
       
 
       
          match to_str with

     

       
36
       
36
       
 
       
          | None -> Ok None

     

       
37
       
37
       
 
       
          | Some s ->

     

       
38
       
38
       
-
       
              let* d = Date.parse_date s `From in

     

       
38
       
38
       
+
       
              let* d = Date.parse_date s `To in

     

       
39
       
39
       
 
       
              Ok (Some d)

     

       
40
       
40
       
 
       
        in

     

       
41
       
41
       
 
       
        let max_date = Date.add_years (!Date.get_today ()) 75 in