chore(eo-exams): lookup labels GET param

2021-12-07 18:42:44 +01:00 · 2021-12-07 18:42:44 +01:00 · ad39c2755f
commit ad39c2755f
parent cae652b512
1 changed files with 4 additions and 1 deletions
--- a/src/Handler/ExamOffice/Exams.hs
+++ b/src/Handler/ExamOffice/Exams.hs
@ -89,7 +89,10 @@ getEOExamsR = do
    Just "no"  -> False
    _          -> userExamOfficeGetSynced

-  -- TODO: lookup GET param and user setting for getLabels
+  getLabels <- lookupGetParam "labels" >>= return . \case
+    Just "yes" -> True
+    Just "no"  -> False
+    _          -> userExamOfficeGetLabels

  examsTable <- runDB $ do
    let