diff options
Diffstat (limited to 'src/course.ml')
| -rw-r--r-- | src/course.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/course.ml b/src/course.ml index 3633ae6..d15b736 100644 --- a/src/course.ml +++ b/src/course.ml @@ -59,6 +59,9 @@ let location_and_summary str category = if summary = "" then location, category else + let summary = match Astring.String.cut ~sep:" - " summary with + | None -> str + | Some (_, str) -> str in location, summary ^ " (" ^ category ^ ")" let date = |