diff options
| -rw-r--r-- | src/course.ml | 10 | ||||
| -rw-r--r-- | src/ics.ml | 2 | ||||
| -rw-r--r-- | src/ucs.ml | 2 |
3 files changed, 6 insertions, 8 deletions
diff --git a/src/course.ml b/src/course.ml index 9f16646..df5a27a 100644 --- a/src/course.ml +++ b/src/course.ml @@ -44,13 +44,13 @@ let location_and_summary str category = List.fold_right (fun str (has_groups, location, summary) -> if not has_groups then - (check_groups str, "", "") + check_groups str, "", "" else if location = "" then - (true, str, "") + true, str, "" else if summary = "" then - (true, str, location) + true, str, location else - (true, location, summary)) parts (false, "", "") in + true, location, summary) parts (false, "", "") in if summary = "" then location, category else @@ -98,5 +98,5 @@ let decode s = | "" -> `O [] | s -> Ezjsonm.from_string s in J.(destruct (list encoding) toks) - |> List.filter_map (fun (event: Ics.Event.t option) -> event) + |> List.filter_map (fun event -> event) |> Ics.make @@ -59,7 +59,7 @@ end type t = Event.t list -let make (events: t) = events +let make events = events let to_string events = let date = current_date () in @@ -30,8 +30,6 @@ let body = >>= fun (_resp, body) -> Cohttp_lwt.Body.to_string body -let dump_date = CalendarLib.Printer.Calendar.to_string - let () = Lwt_main.run body |> Course.decode |