Prime -> 2010
[haskell-report.git] / report / lib-hdrs / Locale.hs
1 module Locale(TimeLocale(..), defaultTimeLocale) where
2
3 data TimeLocale = TimeLocale {
4 wDays :: [(String, String)], -- full and abbreviated week days
5 months :: [(String, String)], -- full and abbreviated months
6 amPm :: (String, String), -- AM/PM symbols
7 dateTimeFmt, dateFmt, -- formatting strings
8 timeFmt, time12Fmt :: String
9 } deriving (Eq, Ord, Show)
10
11 defaultTimeLocale :: TimeLocale