module Locale where

data TimeLocale = TimeLocale {
    wDays  :: [(String,String)],	-- full and abbreviated week days
    months :: [(String,String)],	-- full and abbreviated months
    amPm   :: (String,String),		-- AM/PM symbols
    dateTimeFmt, dateFmt,		-- formatting strings
      timeFmt, time12Fmt :: String
    } deriving (Eq, Ord, Show)