From 35c693e146746af36b251159eae96660c75b3c71 Mon Sep 17 00:00:00 2001 From: Alban Gruin Date: Sat, 19 Sep 2020 16:59:20 +0200 Subject: course: return the summary if there is no " - " in the event's full name Signed-off-by: Alban Gruin --- src/course.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/course.ml') diff --git a/src/course.ml b/src/course.ml index d15b736..3280aa3 100644 --- a/src/course.ml +++ b/src/course.ml @@ -60,7 +60,7 @@ let location_and_summary str category = location, category else let summary = match Astring.String.cut ~sep:" - " summary with - | None -> str + | None -> summary | Some (_, str) -> str in location, summary ^ " (" ^ category ^ ")" -- cgit v1.2.1