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

2020-08-10 11:37:55 +02:00 · 2020-08-10 11:37:55 +02:00 · e4f9f393eb
commit e4f9f393eb
parent 5b4df3c6b1
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Allocation/Show.hs
+++ b/src/Handler/Allocation/Show.hs
@ -19,7 +19,7 @@ getAShowR :: TermId -> SchoolId -> AllocationShorthand -> Handler Html
 getAShowR tid ssh ash = do
  muid <- maybeAuthId
  now  <- liftIO getCurrentTime
-  ata  <- fromMaybe def <$> lookupSessionJson SessionActiveAuthTags
+  ata  <- getSessionActiveAuthTags

  let
    resultCourse :: Simple Field1 a (Entity Course) => Lens' a (Entity Course)