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 (Integer -> DiffTime) -> Integer -> DiffTime
forall a b. (a -> b) -> a -> b
$ Pico -> Integer
forall b. Integral b => Pico -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Pico -> Integer) -> Pico -> Integer
forall a b. (a -> b) -> a -> b
$ NominalDiffTime -> Pico
Time.nominalDiffTimeToSeconds (NominalDiffTime -> Pico) -> NominalDiffTime -> Pico
forall a b. (a -> b) -> a -> b
$ NominalDiffTime
Time.nominalDay NominalDiffTime -> NominalDiffTime -> NominalDiffTime
forall a. Num a => a -> a -> a
* NominalDiffTime
365