Constants.hs

module Text.Time.Pretty.Constants
  ( picoSecondsPerSecond,
    secondsPerMinute,
    minutesPerHour,
    hoursPerDay,
    daysPerWeek,
    approximateDaysPerMonth,
    approximateDaysPerYear,
  )
where

picoSecondsPerSecond :: Integral a => a
picoSecondsPerSecond = 10 ^ (12 :: Integer)

secondsPerMinute :: Integral a => a
secondsPerMinute = 60

minutesPerHour :: Integral a => a
minutesPerHour = 60

hoursPerDay :: Integral a => a
hoursPerDay = 24

daysPerWeek :: Integral a => a
daysPerWeek = 7

approximateDaysPerMonth :: Integral a => a
approximateDaysPerMonth = 31

approximateDaysPerYear :: Integral a => a
approximateDaysPerYear = 365