old-locale (empty) → 1.0.0.0
raw patch · 4 files changed
+168/−0 lines, 4 filesdep +basesetup-changed
Dependencies added: base
Files
- LICENSE +63/−0
- Setup.hs +6/−0
- System/Locale.hs +85/−0
- old-locale.cabal +14/−0
+ LICENSE view
@@ -0,0 +1,63 @@+This library (libraries/base) is derived from code from two+sources: ++ * Code from the GHC project which is largely (c) The University of+ Glasgow, and distributable under a BSD-style license (see below),++ * Code from the Haskell 98 Report which is (c) Simon Peyton Jones+ and freely redistributable (but see the full license for+ restrictions).++The full text of these licenses is reproduced below. Both of the+licenses are BSD-style or compatible.++-----------------------------------------------------------------------------++The Glasgow Haskell Compiler License++Copyright 2004, The University Court of the University of Glasgow. +All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++- Redistributions of source code must retain the above copyright notice,+this list of conditions and the following disclaimer.+ +- Redistributions in binary form must reproduce the above copyright notice,+this list of conditions and the following disclaimer in the documentation+and/or other materials provided with the distribution.+ +- Neither name of the University nor the names of its contributors may be+used to endorse or promote products derived from this software without+specific prior written permission. ++THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY COURT OF THE UNIVERSITY OF+GLASGOW AND THE CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND+FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE+UNIVERSITY COURT OF THE UNIVERSITY OF GLASGOW OR THE CONTRIBUTORS BE LIABLE+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH+DAMAGE.++-----------------------------------------------------------------------------++Code derived from the document "Report on the Programming Language+Haskell 98", is distributed under the following license:++ Copyright (c) 2002 Simon Peyton Jones++ The authors intend this Report to belong to the entire Haskell+ community, and so we grant permission to copy and distribute it for+ any purpose, provided that it is reproduced in its entirety,+ including this Notice. Modified versions of this Report may also be+ copied and distributed for any purpose, provided that the modified+ version is clearly presented as such, and that it does not claim to+ be a definition of the Haskell 98 Language.++-----------------------------------------------------------------------------
+ Setup.hs view
@@ -0,0 +1,6 @@+module Main (main) where++import Distribution.Simple++main :: IO ()+main = defaultMain
+ System/Locale.hs view
@@ -0,0 +1,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"
+ old-locale.cabal view
@@ -0,0 +1,14 @@+name: old-locale+version: 1.0.0.0+license: BSD3+license-file: LICENSE+maintainer: libraries@haskell.org+synopsis: locale library+description:+ This package provides the old locale library.+ For new code, the new locale library is recommended.+build-type: Simple+exposed-modules:+ System.Locale+build-depends: base+