fraport/fradrive
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:16:14 +02:00
parent 662943b256
commit 58c933c624
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,13 +75,13 @@ postEECorrectR tid ssh coursen examn = do
matches <- case euid of
Right uid -> lift . E.select . E.from $ \user -> E.where_ (user E.^. UserId E.==. E.val uid) >> return user
Left ident ->
let pdnf = PredDNF . Set.fromList $ (impureNonNull . Set.fromList . pure . PLVariable) <$>
let pdnf = PredDNF . Set.fromList $ impureNonNull . Set.fromList . pure . PLVariable <$>
[ GuessUserMatrikelnummer (ident :: UserMatriculation)
, GuessUserDisplayName (ident :: UserDisplayName)
, GuessUserSurname (ident :: UserSurname)
, GuessUserFirstName (ident :: UserFirstName)
]
in lift (guessUser pdnf $ Just $ maxCountUserMatches+1) >>= return . maybe [] (either NonEmpty.toList pure)
in (maybe [] (either NonEmpty.toList pure)) <$> lift (guessUser pdnf $ Just $ maxCountUserMatches+1)
if
| is _Nothing ciqResults, is _Nothing ciqGrade -> do