2012-11-14 05:30:22 +00:00
|
|
|
|
|
|
|
module Date where
|
|
|
|
|
2013-02-21 23:33:53 +00:00
|
|
|
data Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun
|
2012-11-14 05:30:22 +00:00
|
|
|
|
|
|
|
data Month = Jan | Feb | Mar | Apr
|
|
|
|
| May | Jun | Jul | Aug
|
|
|
|
| Sep | Oct | Nov | Dec
|
2013-02-21 23:33:53 +00:00
|
|
|
|
|
|
|
read : String -> Date
|
|
|
|
toTime : Date -> Time
|
|
|
|
|
2013-03-10 08:54:37 +00:00
|
|
|
year : Date -> Int
|
2013-02-21 23:33:53 +00:00
|
|
|
month : Date -> Month
|
2013-03-10 08:54:37 +00:00
|
|
|
day : Date -> Int
|
2013-02-21 23:33:53 +00:00
|
|
|
dayOfWeek : Date -> Day
|
2013-03-10 08:54:37 +00:00
|
|
|
hour : Date -> Int
|
2013-02-21 23:33:53 +00:00
|
|
|
minute : Date -> Int
|
|
|
|
second : Date -> Int
|