This commit is contained in:
Chris Allen 2016-03-01 15:13:34 -06:00
parent aae32399f1
commit 7123b02500

View File

@ -55,7 +55,7 @@ decodeClientSession key date rhost encrypted = do
-- to preserve the type. -- to preserve the type.
clientSessionDateCacher :: clientSessionDateCacher ::
NominalDiffTime -- ^ Inactive session valitity. NominalDiffTime -- ^ Inactive session validity.
-> IO (IO ClientSessionDateCache, IO ()) -> IO (IO ClientSessionDateCache, IO ())
clientSessionDateCacher validity = do clientSessionDateCacher validity = do
getClientSessionDateCache <- mkAutoUpdate defaultUpdateSettings getClientSessionDateCache <- mkAutoUpdate defaultUpdateSettings