/usr/lib/hugs/packages/base/System/Locale.hs is in libhugs-base-bundled 98.200609.21-5.4+b3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | -----------------------------------------------------------------------------
-- |
-- Module : System.Locale
-- Copyright : (c) The University of Glasgow 2001
-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
-- Stability : stable
-- Portability : portable
--
-- This module provides the ability to adapt to local conventions.
-- At present, it supports only time and date information as used by
-- 'System.Time.calendarTimeToString' from the "System.Time" module.
--
-----------------------------------------------------------------------------
module System.Locale (
TimeLocale(..)
, defaultTimeLocale
, iso8601DateFormat
, rfc822DateFormat
)
where
import Prelude
data TimeLocale = TimeLocale {
-- |full and abbreviated week days
wDays :: [(String, String)],
-- |full and abbreviated months
months :: [(String, String)],
intervals :: [(String, String)],
-- |AM\/PM symbols
amPm :: (String, String),
-- |formatting strings
dateTimeFmt, dateFmt,
timeFmt, time12Fmt :: String
} deriving (Eq, Ord, Show)
defaultTimeLocale :: TimeLocale
defaultTimeLocale = TimeLocale {
wDays = [("Sunday", "Sun"), ("Monday", "Mon"),
("Tuesday", "Tue"), ("Wednesday", "Wed"),
("Thursday", "Thu"), ("Friday", "Fri"),
("Saturday", "Sat")],
months = [("January", "Jan"), ("February", "Feb"),
("March", "Mar"), ("April", "Apr"),
("May", "May"), ("June", "Jun"),
("July", "Jul"), ("August", "Aug"),
("September", "Sep"), ("October", "Oct"),
("November", "Nov"), ("December", "Dec")],
intervals = [ ("year","years")
, ("month", "months")
, ("day","days")
, ("hour","hours")
, ("min","mins")
, ("sec","secs")
, ("usec","usecs")
],
amPm = ("AM", "PM"),
dateTimeFmt = "%a %b %e %H:%M:%S %Z %Y",
dateFmt = "%m/%d/%y",
timeFmt = "%H:%M:%S",
time12Fmt = "%I:%M:%S %p"
}
-- |Normally, ISO-8601 just defines YYYY-MM-DD
-- but we can add a time spec.
iso8601DateFormat :: Maybe String -> String
iso8601DateFormat timeFmt =
"%Y-%m-%d" ++ case timeFmt of
Nothing -> ""
Just fmt -> ' ' : fmt
rfc822DateFormat :: String
rfc822DateFormat = "%a, %_d %b %Y %H:%M:%S %Z"
|