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