fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: hlint

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-01 18:54:33 +01:00 committed by Wolfgang Witt
parent a7671dbec6
commit 163715afc8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam/AutoOccurrence.hs
View File

@ -168,7 +168,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
| max' /= 0 = MsgProportion (toMessage curr) (toMessage max') (toRational curr / toRational max') | max' /= 0 = MsgProportion (toMessage curr) (toMessage max') (toRational curr / toRational max')
| otherwise = MsgProportionNoRatio (toMessage curr) (toMessage max') | otherwise = MsgProportionNoRatio (toMessage curr) (toMessage max')
occMapping occId = examOccurrenceMappingDescriptionWidget occMappingRule <$> (Map.lookup occId $ examOccurrenceMappingMapping $ eaofMapping) occMapping occId = examOccurrenceMappingDescriptionWidget occMappingRule <$> Map.lookup occId (examOccurrenceMappingMapping eaofMapping)
in $(widgetFile "widgets/exam-occurrence-mapping") in $(widgetFile "widgets/exam-occurrence-mapping")
siteLayoutMsg heading $ do siteLayoutMsg heading $ do

4
src/Handler/Utils/Exam.hs
View File

@ -287,8 +287,8 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
= case rule of = case rule of
ExamRoomRandom ExamRoomRandom
-> Right ( ExamOccurrenceMapping { -> Right ( ExamOccurrenceMapping {
examOccurrenceMappingRule=rule, examOccurrenceMappingRule = rule,
examOccurrenceMappingMapping=Map.fromList $ (set _2 $ Set.singleton ExamOccurrenceMappingRandom) <$> occurrences'' examOccurrenceMappingMapping = Map.fromList $ set _2 (Set.singleton ExamOccurrenceMappingRandom) <$> occurrences''
} }
, Map.union (view _2 <$> assignedUsers) randomlyAssignedUsers , Map.union (view _2 <$> assignedUsers) randomlyAssignedUsers
) )