diff options
| -rw-r--r-- | src/course.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/course.ml b/src/course.ml index 3280aa3..4d02df3 100644 --- a/src/course.ml +++ b/src/course.ml @@ -35,9 +35,9 @@ let replace_entities str = |> Stringext.replace_all_assoc str let check_groups str = - let group_affixes = ["MAT-Agreg Interne "; "3EME ANNEE "; "2EME ANNEE "; - "1ERE ANNEE "; "MAG1 "; "DEUST "; "M2 "; "M1 "; "L3P "; - "L3 "; "L2 "; "L1 "] in + let group_affixes = ["L1 "; "L2 "; "L3 "; "L3P "; "M1 "; "M2 "; "DEUST "; + "MAG1 "; "1ERE ANNEE "; "2EME ANNEE "; "3EME ANNEE "; + "MAT-Agreg Interne "] in List.fold_left (fun res affix -> res || Astring.String.is_prefix ~affix str) false group_affixes |