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

chore: fix tests

Browse Source
This commit is contained in:
Gregor Kleen 2021-06-16 23:15:01 +02:00
parent 595dfdb8d3
commit 1e6f6e4296
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/Allocation/UserForm.hs
View File

@ -220,7 +220,7 @@ courseParticipantForm courses csrf = do
)
let linesWidget = Map.intersectionWith (,) courses lines'
& Map.elems
& sortBy (comparing . view $ _1 . _1)
& sortOn (view $ _1 . _1)
& view (folded . _2 . _2)
return ( forM lines' $ view _1
, $(widgetFile "allocation/user-course-participant-form/layout")