2 % (c) The GRASP/AQUA Project, Glasgow University, 1995-97
4 \section[Time]{Haskell 1.4 Locale Library}
8 module Locale(TimeLocale(..), defaultTimeLocale) where
10 data TimeLocale = TimeLocale {
11 wDays :: [(String, String)], -- full and abbreviated week days
12 months :: [(String, String)], -- full and abbreviated months
13 amPm :: (String, String), -- AM/PM symbols
14 dateTimeFmt, dateFmt, -- formatting strings
15 timeFmt, time12Fmt :: String
16 } deriving (Eq, Ord, Show)
18 defaultTimeLocale :: TimeLocale
19 defaultTimeLocale = TimeLocale {
20 wDays = [("Sunday", "Sun"), ("Monday", "Mon"),
21 ("Tuesday", "Tue"), ("Wednesday", "Wed"),
22 ("Thursday", "Thu"), ("Friday", "Fri"),
25 months = [("January", "Jan"), ("February", "Feb"),
26 ("March", "Mar"), ("April", "Apr"),
27 ("May", "May"), ("June", "Jun"),
28 ("July", "Jul"), ("August", "Aug"),
29 ("September", "Sep"), ("October", "Oct"),
30 ("November", "Nov"), ("December", "Dec")],
33 dateTimeFmt = "%a %b %e %H:%M:%S %Z %Y",
36 time12Fmt = "%I:%M:%S %p"