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