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

fix(build): fix build

Browse Source
This commit is contained in:
Steffen Jost 2019-07-10 19:47:03 +02:00
parent 4d0f7a6a70
commit 49dc4139cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Corrections.hs
View File

@ -1156,7 +1156,7 @@ assignHandler tid ssh csh cid assignSids = do
(\acc (E.Value sheetCorrectorSheet, Entity uid user) -> (\acc (E.Value sheetCorrectorSheet, Entity uid user) ->
let shn = sheetName $ sheets ! sheetCorrectorSheet let shn = sheetName $ sheets ! sheetCorrectorSheet
scr = SheetCorrector uid sheetCorrectorSheet mempty CorrectorExcused scr = SheetCorrector uid sheetCorrectorSheet mempty CorrectorExcused
in Map.insertWith (\new old -> old) uid (user, Map.singleton shn scr) acc -- keep already known correctors unchanged in Map.insertWith (\_new old -> old) uid (user, Map.singleton shn scr) acc -- keep already known correctors unchanged
) )
submissions <- E.select . E.from $ \submission -> do submissions <- E.select . E.from $ \submission -> do