feat(eoexamsr): use user get-synced setting if no param present

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