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

fix: build

Browse Source
This commit is contained in:
Gregor Kleen 2020-11-29 13:22:50 +01:00
parent ed5d871182
commit 43bb0abe72
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/Course/Show.hs
View File

@ -161,7 +161,7 @@ getCShowR tid ssh csh = do
E.where_ $ tutorial E.^. TutorialCourse E.==. E.val cid E.where_ $ tutorial E.^. TutorialCourse E.==. E.val cid
let showRoom = maybe E.false (flip showTutorialRoom tutorial . E.val) mbAid let showRoom = maybe E.false (flip showTutorialRoom tutorial . E.val) mbAid
E.||. E.not_ (tutorial E.^. TutorialRoomHidden) E.||. E.not_ (tutorial E.^. TutorialRoomHidden)
return (tutorial, ) return (tutorial, showRoom)
dbtRowKey = (E.^. TutorialId) dbtRowKey = (E.^. TutorialId)
dbtProj = traverse $ return . over _2 E.unValue dbtProj = traverse $ return . over _2 E.unValue
dbtColonnade = dbColonnade $ mconcat dbtColonnade = dbColonnade $ mconcat