chronos-0.2.0: src/Chronos/Day.hs

module Chronos.Day where

import Chronos.Types
import Data.Int

add :: Int -> Day -> Day
add a (Day b) = Day (a + b)

diff :: Day -> Day -> Int
diff (Day a) (Day b) = a - b