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

chore: make tests compile again

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-18 15:15:59 +01:00 committed by Gregor Kleen
parent ce0f48b82a
commit 30fb1462ab
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -134,7 +134,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1) runFormPost $ examAutoOccurrenceNudgeForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1)
ignoreRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId -> ignoreRes <- sequence . flip Map.fromSet (setOf (folded . _entityKey) occurrences) $ \occId ->
runFormPost $ examAutoOccurrenceIgnoreRoomsForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1) runFormPost $ examAutoOccurrenceIgnoreRoomsForm occId (formResult' . asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. ifolded . ifiltered (\occId' _ -> occId' /= occId) . _1 . _1)
return $ (nudgeRes, ignoreRes) return (nudgeRes, ignoreRes)
let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1 let calculateRes' = asum $ calculateRes : nudgeRes ^.. folded . _1 . _1 ++ ignoreRes ^.. folded . _1 . _1

2
test/Handler/Utils/ExamSpec.hs
View File

@ -122,7 +122,7 @@ spec = do
let userProperties :: Map UserId (UserProperties, Maybe ExamOccurrenceId) let userProperties :: Map UserId (UserProperties, Maybe ExamOccurrenceId)
userProperties = Map.map (first UserProperties) users userProperties = Map.map (first UserProperties) users
case autoOccurrenceResult of case autoOccurrenceResult of
(Right (occurrenceMapping, userMap)) -> do (Right (occurrenceMapping, userMap, _ignoredRooms)) -> do
-- user count stays constant -- user count stays constant
myAnnotate "number of users changed" $ shouldBe (length userMap) (length users) myAnnotate "number of users changed" $ shouldBe (length userMap) (length users)
-- no room is overfull -- no room is overfull