{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Date
 ( module Hcompta.Model.Date
 , Day
 )
 where

import Data.Data
import Data.Time.Calendar (Day)
import Data.Time.Format ()
import Data.Typeable ()

type Smart =
 (String, String, String)

data Which
 = Primary
 | Secondary
 deriving (Eq, Read, Show)

data Span
 = Span (Maybe Day) (Maybe Day)
 deriving (Data, Eq, Ord, Read, Show, Typeable)

data Interval
 = NoInterval
 | Days Int
 | Weeks Int
 | Months Int
 | Quarters Int
 | Years Int
 | DayOfMonth Int
 | DayOfWeek Int
 -- WeekOfYear Int | MonthOfYear Int | QuarterOfYear Int
 deriving (Data, Eq, Ord, Read, Show, Typeable)