chore: fix tests

config/test-settings.yml

@@ -8,5 +8,6 @@ log-settings:
   destination:   "test.log"
 
 auth-dummy-login: true
+server-session-acid-fallback: true
 
 job-workers: 1

src/Handler/Allocation/Accept.hs

@@ -102,7 +102,7 @@ allocationAcceptForm aId = runMaybeT $ do
   let validateMatches =
         guardValidation MsgAllocationAcceptFormDoesNotMatchSession =<< State.get
 
-  return . (set (mapped . mapped . _1 . mapped) allocRes) . validateForm validateMatches . identifyForm FIDAllocationAccept $ \csrf -> do
+  return . set (mapped . mapped . _1 . mapped) allocRes . validateForm validateMatches . identifyForm FIDAllocationAccept $ \csrf -> do
     (prevAllocRes, prevAllocView) <- mreq hiddenField "" $ Just allocFp
     let prevAllocMatches = (== allocFp) <$> prevAllocRes
 

src/Handler/Participants.hs

@@ -88,7 +88,7 @@ postParticipantsIntersectR = do
     courseQuery = E.from return
     termSchoolAccess (Entity _ Course{..}) =
       hasReadAccessTo $ ParticipantsR courseTerm courseSchool
-  ((coursesRes, coursesView), coursesEnc) <- runFormPost . renderAForm FormStandard $ courseSelectForm courseQuery termSchoolAccess (\_ -> Nothing) ("participants-intersect" :: Text) (fslI MsgParticipantsIntersectCourses) False Nothing
+  ((coursesRes, coursesView), coursesEnc) <- runFormPost . renderAForm FormStandard $ courseSelectForm courseQuery termSchoolAccess (const Nothing) ("participants-intersect" :: Text) (fslI MsgParticipantsIntersectCourses) False Nothing
   let formWidget = wrapForm coursesView def
         { formAction = Just . SomeRoute $ ParticipantsIntersectR :#: ("table" :: Text)
         , formEncoding = coursesEnc