@@ -53,7 +53,7 @@ data Availability = Fresh | Used
54----------------------------------------------------------------
54----------------------------------------------------------------
56−-- | Creating a in-memory session manager.
56+-- | Creating an in-memory session manager.
57newSessionManager :: Config -> IO SessionManager
57newSessionManager :: Config -> IO SessionManager
58newSessionManager conf = do
58newSessionManager conf = do
59 let lifetime = fromIntegral $ ticketLifetime conf
59 let lifetime = fromIntegral $ ticketLifetime conf