From ad67c2e0e22bd3b06c09e8d6dd54316a42074c85 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Fri, 26 Feb 2021 10:05:24 +0100 Subject: [PATCH] chore: remove trailing 'A' from surname-range-start - still add it if the previous end was too short - this way overall shorter descriptions are possible - in rare cases (at maxTagLength) this prevented a description to be created --- src/Handler/Utils/Exam.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs index 74188ef0f..5b441f8ff 100644 --- a/src/Handler/Utils/Exam.hs +++ b/src/Handler/Utils/Exam.hs @@ -660,8 +660,10 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences increase :: [CI Char] -> [CI Char] increase [] = [] increase (c:cs) - | nextChar == head alphabet + | nextChar == head alphabet, rule == ExamRoomMatriculation = nextChar : increase cs + | nextChar == head alphabet + = increase cs | otherwise = nextChar : cs where