From e4f9f393eb6381d8d156ad34b0ced01d3294a1f7 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel@cip.ifi.lmu.de>
Date: Mon, 10 Aug 2020 11:37:55 +0200
Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s)

---
 src/Handler/Allocation/Show.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Allocation/Show.hs b/src/Handler/Allocation/Show.hs
index cb36c0ac5..acdc43714 100644
--- 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)