From eae511ec029c3e0f2e3c34871a8e0e63843f6297 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 28 Mar 2019 12:39:16 +0100 Subject: [PATCH] Fix build --- src/Foundation.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index 5e8f68dcf..b65dda85b 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -2161,10 +2161,10 @@ instance YesodAuth UniWorX where unless candidatesRecorded $ do let - studyTermCandidates'' = do - (studyTermCandidateKey, studyTermCandidateName) <- Set.toList studyTermCandidates' + studyTermCandidates' = do + (studyTermCandidateKey, studyTermCandidateName) <- Set.toList studyTermCandidates return StudyTermCandidate{..} - lift $ insertMany_ studyTermCandidates'' + lift $ insertMany_ studyTermCandidates' lift $ E.updateWhere [StudyFeaturesUser ==. userId] [StudyFeaturesValid =. False] forM_ fs $ \f@StudyFeatures{..} -> do