fix: hlint

src/Handler/ExternalExam/Correct.hs

@@ -105,7 +105,7 @@ postEECorrectR tid ssh coursen examn = do
                 mOld = externalExamResultResult . entityVal <$> mOldResult
               in if
                 | ciqGrade' /= mOld -> do
-                  let resultTime = maybe now id externalExamDefaultTime  -- TODO add option to override default?
+                  let resultTime = fromMaybe now externalExamDefaultTime
                   newResult <- upsert ExternalExamResult
                     { externalExamResultExam        = eeId
                     , externalExamResultUser        = uid

src/Handler/Utils/ExternalExam/Users.hs

@@ -492,7 +492,7 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
         
         guessUser' :: ExternalExamUserTableCsv -> DB (Either (NonEmpty (Entity User)) (Entity User))
         guessUser' ExternalExamUserTableCsv{..} = do
-          let criteria = PredDNF $ Set.singleton $ impureNonNull $ Set.fromList $ (PLVariable <$>) $ catMaybes $
+          let criteria = PredDNF $ Set.singleton $ impureNonNull $ Set.fromList $ (PLVariable <$>) $ catMaybes
                 [ GuessUserMatrikelnummer <$> csvEUserMatriculation
                 , GuessUserDisplayName <$> csvEUserName
                 , GuessUserSurname <$> csvEUserSurname