module CookieTray.Time where import Data.Time qualified as Time import Prelude (($), (*), round) -- | Roughly the length of a year -- -- This can be useful for setting cookie expiration times. year :: Time.DiffTime year :: DiffTime year = Integer -> DiffTime Time.secondsToDiffTime forall a b. (a -> b) -> a -> b $ forall a b. (RealFrac a, Integral b) => a -> b round forall a b. (a -> b) -> a -> b $ NominalDiffTime -> Pico Time.nominalDiffTimeToSeconds forall a b. (a -> b) -> a -> b $ NominalDiffTime Time.nominalDay forall a. Num a => a -> a -> a * NominalDiffTime 365