From ad39c2755f2b25ff3cb290d718a6558ae1cef57f Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 7 Dec 2021 18:42:44 +0100
Subject: [PATCH] chore(eo-exams): lookup labels GET param

---
 src/Handler/ExamOffice/Exams.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Handler/ExamOffice/Exams.hs b/src/Handler/ExamOffice/Exams.hs
index c6d72d734..c05859ef5 100644
--- 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