Fix build

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