From e60d125e05bcf152b57fa132b4957405c40ae03f Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 30 Nov 2021 01:07:09 +0100
Subject: [PATCH] feat(eoexamsr): use user get-synced setting if no param
 present

---
 src/Handler/ExamOffice/Exams.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/Handler/ExamOffice/Exams.hs b/src/Handler/ExamOffice/Exams.hs
index e01555ad1..c6d72d734 100644
--- a/src/Handler/ExamOffice/Exams.hs
+++ b/src/Handler/ExamOffice/Exams.hs
@@ -81,13 +81,14 @@ resultIsSynced = to $ (>=) <$> view resultSynchronised <*> view resultResults
 --   exam-office) access users grades
 getEOExamsR :: Handler Html
 getEOExamsR = do
-  uid <- requireAuthId
+  (uid, User{..}) <- requireAuthPair
   now <- liftIO getCurrentTime
 
-  getSynced <- lookupGetParam "synced" >>= \case
-    Just "yes" -> return True
-    Just "no"  -> return False
-    _          -> return True  -- TODO: lookup user setting
+  getSynced <- lookupGetParam "synced" >>= return . \case
+    Just "yes" -> True
+    Just "no"  -> False
+    _          -> userExamOfficeGetSynced
+
   -- TODO: lookup GET param and user setting for getLabels
 
   examsTable <- runDB $ do
@@ -264,7 +265,7 @@ getEOExamsR = do
 
           dbtCsvEncode = noCsvEncode
           dbtCsvDecode = Nothing
-                     
+
           dbtExtraReps = []
 
       examsDBTableValidator = def