fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-15 19:03:12 +02:00
parent a1b03e819f
commit 662943b256
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/ExternalExam/Correct.hs
View File

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

2
src/Handler/Utils/ExternalExam/Users.hs
View File

@ -492,7 +492,7 @@ makeExternalExamUsersTable mode (Entity eeId ExternalExam{..}) = do
guessUser' :: ExternalExamUserTableCsv -> DB (Either (NonEmpty (Entity User)) (Entity User)) guessUser' :: ExternalExamUserTableCsv -> DB (Either (NonEmpty (Entity User)) (Entity User))
guessUser' ExternalExamUserTableCsv{..} = do 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 [ GuessUserMatrikelnummer <$> csvEUserMatriculation
, GuessUserDisplayName <$> csvEUserName , GuessUserDisplayName <$> csvEUserName
, GuessUserSurname <$> csvEUserSurname , GuessUserSurname <$> csvEUserSurname