···

       
134
       
134
       
 
       
  Arg.(

     

       
135
       
135
       
 
       
    value

     

       
136
       
136
       
 
       
    & opt_all sort_converter [ default_sort ]

     

       
137
       
137
       
-
       
    & info [ "sort"; "s" ] ~docv:"SORT" ~doc)

     

       
137
       
137
       
+
       
    & info [ "sort"; "S" ] ~docv:"SORT" ~doc)

     

       
138
       
138
       
 
       


     

       
139
       
139
       
 
       
(* Convert sort specs to an instance comparator *)

     

       
140
       
140
       
 
       
let create_instance_comparator sort_specs =

     

···

       
56
       
56
       
 
       


     

       
57
       
57
       
 
       
let query ~fs calendar_dir ?filter ~from ~to_

     

       
58
       
58
       
 
       
    ?(comparator = Recur.Instance.by_start) ?limit () =

     

       
59
       
59
       
-
       
  Fmt.epr "Querying from %a to %a\n%!" Ptime.pp (Option.get from) Ptime.pp to_;

     

       
60
       
59
       
 
       
  match query_events ~fs calendar_dir ?filter () with

     

       
61
       
60
       
 
       
  | Ok events ->

     

       
62
       
61
       
 
       
      let instances =