commit 97910b4425d664677b9d025b75c908c45b5243b7 · ryan.freumh.org/caledonia

+6 -1

bin/add_cmd.ml

···

       12
       12
        
           | Some s -> Ok s

     

       13
       13
        
           | None -> Error (`Msg "Start date required")

     

       14
       14
        
         in

     

       15
       15
       -
         let* end_ = parse_end ~end_date ~end_time ~timezone ~end_timezone in

     

       15
       15
       +
         let* end_ =

     

       16
       16
       +
           let end_date =

     

       17
       17
       +
             match end_date with None -> start_date | Some e -> Some e

     

       18
       18
       +
           in

     

       19
       19
       +
           parse_end ~end_date ~end_time ~timezone ~end_timezone

     

       20
       20
       +
         in

     

       16
       21
        
         let* recurrence =

     

       17
       22
        
           match recur with

     

       18
       23
        
           | Some r ->

+6 -1

bin/edit_cmd.ml

···

       14
       14
        
           | _ -> Error (`Msg ("More than one found for id " ^ event_id))

     

       15
       15
        
         in

     

       16
       16
        
         let* start = parse_start ~start_date ~start_time ~timezone in

     

       17
       17
       -
         let* end_ = parse_end ~end_date ~end_time ~timezone ~end_timezone in

     

       17
       17
       +
         let* end_ =

     

       18
       18
       +
           let end_date =

     

       19
       19
       +
             match end_date with None -> start_date | Some e -> Some e

     

       20
       20
       +
           in

     

       21
       21
       +
           parse_end ~end_date ~end_time ~timezone ~end_timezone

     

       22
       22
       +
         in

     

       18
       23
        
         let* recurrence =

     

       19
       24
        
           match recur with

     

       20
       25
        
           | Some r ->

+1 -1

bin/event_args.ml

···

       28
       28
        
         Arg.(value & opt (some string) None & info [ "time"; "t" ] ~docv:"TIME" ~doc)

     

       29
       29
        
       

     

       30
       30
        
       let end_date_arg =

     

       31
       31
       -
         let doc = "Event end date (YYYY-MM-DD)" in

     

       31
       31
       +
         let doc = "Event end date (YYYY-MM-DD). Defaults to DATE." in

     

       32
       32
        
         Arg.(

     

       33
       33
        
           value

     

       34
       34
        
           & opt (some string) None