···

       
648
       
648
       
 
       
              (hd, List.map (function `Event e -> e | _ -> assert false) tl)

     

       
649
       
649
       
 
       
          | _ -> assert false

     

       
650
       
650
       
 
       
        in

     

       
651
       
651
       
-
       
        Fmt.pr "Event:\n%s\n"

     

       
652
       
652
       
-
       
          (format_event ~format:`Entries (clone_with_event event ical_event));

     

       
653
       
653
       
-
       
        List.iter

     

       
654
       
654
       
-
       
          (fun e ->

     

       
655
       
655
       
-
       
            Fmt.pr "Recurrent ID event:\n%s\n"

     

       
656
       
656
       
-
       
              (format_event ~format:`Entries (clone_with_event event e)))

     

       
657
       
657
       
-
       
          other_events;

     

       
658
       
658
       
-
       
        (* Icalendar filters for equal uids *)

     

       
659
       
651
       
 
       
        recur_events ~recurrence_ids:other_events ical_event

     

       
660
       
652
       
 
       
      in

     

       
661
       
653
       
 
       
      collect generator []