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

Apply 1 suggestion(s) to 1 file(s)

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-10 11:37:55 +02:00
parent 5b4df3c6b1
commit e4f9f393eb
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/Show.hs
View File

@ -19,7 +19,7 @@ getAShowR :: TermId -> SchoolId -> AllocationShorthand -> Handler Html
getAShowR tid ssh ash = do getAShowR tid ssh ash = do
muid <- maybeAuthId muid <- maybeAuthId
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
ata <- fromMaybe def <$> lookupSessionJson SessionActiveAuthTags ata <- getSessionActiveAuthTags
let let
resultCourse :: Simple Field1 a (Entity Course) => Lens' a (Entity Course) resultCourse :: Simple Field1 a (Entity Course) => Lens' a (Entity Course)