filtre out closed courses in achievements

Handler/Achievements.hs

@@ -45,7 +45,8 @@ postAchievementsR = do
 doAchievements mUser formWidget formEnctype = do
   achievements <- runDB $ selectList [] [Asc AchievementName]
   mUser <- maybeAuth
-  achievementInfos <- runDB $ mapM (getAchievementInfo mUser) achievements
+  achievementInfos' <- runDB $ mapM (getAchievementInfo mUser) achievements
+  let achievementInfos = Import.filter (not . courseClosed . entityVal . achievementInfoCourse) achievementInfos'
 
   tagsAvailableAsJSON <- runDB $ getAvailableTagsAsJSON
 

config/models

@@ -104,7 +104,8 @@ WorkingOn
     UniqueWorkingOnAchievementUser achievement user
 Course
     name Text
-    code Text Maybe
-    closed Bool Maybe
+    code Text
+    closed Bool
     UniqueCourseName name
+    UniqueCourseCode code
 -- By default this file is used in Model.hs (which is imported by Foundation.hs)