iso8601-time (empty) → 0.1.0

raw patch · 3 files changed

+112/−0 lines, 3 filesdep +basedep +old-localedep +timesetup-changed

Dependencies added: base, old-locale, time

Files

• Setup.hs +2/−0
• iso8601-time.cabal +34/−0
• src/Data/Time/ISO8601.hs +76/−0

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,34 @@+name:          iso8601-time+version:       0.1.0+license:       MIT+copyright:     2013 Niklas Hambüchen <mail@nh2.me>+author:        Niklas Hambüchen <mail@nh2.me>+maintainer:    Niklas Hambüchen <mail@nh2.me>+category:      Time+build-type:    Simple+stability:     experimental+tested-With:   GHC==7.6.3+cabal-version: >= 1.8+homepage:      https://github.com/nh2/iso8601-time+bug-Reports:   https://github.com/nh2/iso8601-time/issues+synopsis:      Convert to/from the ISO 8601 time format+description:+  Conversion functions between Haskell time types and the ISO 8601 format,+  which is often used for printing times, e.g. JavaScript's @new Date().toISOString()@.+  .+  CHANGELOG+  .+  Version 0.1.0+  .+  * Initial version.++source-repository head+  type:      git+  location:  git://github.com/nh2/iso8601-time.git+++library+  exposed-modules: Data.Time.ISO8601+  build-depends:   base < 5, old-locale, time+  hs-source-dirs:  src+  ghc-options:     -Wall

@@ -0,0 +1,76 @@+module Data.Time.ISO8601+  ( formatISO8601+  , formatISO8601Millis+  , formatISO8601Micros+  , formatISO8601Nanos+  , formatISO8601Picos+  , formatISO8601Javascript+  , parseISO8601+  ) where+++import Data.Time.Clock (UTCTime)+import Data.Time.Format (formatTime, parseTime)+import System.Locale (defaultTimeLocale)+++-- | Formats a time in ISO 8601, with up to 12 second decimals.+--+-- This is the `formatTime` format @%FT%T%Q@ == @%%Y-%m-%dT%%H:%M:%S%Q@.+--+-- For+formatISO8601 :: UTCTime -> String+formatISO8601 t = formatTime defaultTimeLocale "%FT%T%QZ" t+++-- | Pads an ISO 8601 date with trailing zeros, but lacking the trailing Z.+formatPadded :: UTCTime -> String+formatPadded t+  | length str == 19 = str ++ ".000000000"+  | otherwise        = str ++ "000000000"+  where+    str = formatTime defaultTimeLocale "%FT%T%Q" t+++-- | Formats a time in ISO 8601 with up to millisecond precision and trailing zeros.+-- The format is precisely:+--+-- >YYYY-MM-DDTHH:mm:ss.sssZ+formatISO8601Millis :: UTCTime -> String+formatISO8601Millis t = take 23 (formatPadded t) ++ "Z"+++-- | Formats a time in ISO 8601 with up to microsecond precision and trailing zeros.+-- The format is precisely:+--+-- >YYYY-MM-DDTHH:mm:ss.ssssssZ+formatISO8601Micros :: UTCTime -> String+formatISO8601Micros t = take 26 (formatPadded t) ++ "Z"+++-- | Formats a time in ISO 8601 with up to nanosecond precision and trailing zeros.+-- The format is precisely:+--+-- >YYYY-MM-DDTHH:mm:ss.sssssssssZ+formatISO8601Nanos :: UTCTime -> String+formatISO8601Nanos t = take 29 (formatPadded t) ++ "Z"++-- | Formats a time in ISO 8601 with up to picosecond precision and trailing zeros.+-- The format is precisely:+--+-- >YYYY-MM-DDTHH:mm:ss.ssssssssssssZ+formatISO8601Picos :: UTCTime -> String+formatISO8601Picos t = take 32 (formatPadded t) ++ "Z"+++-- | Formats a time like JavaScript's @new Date().toISOString()@+-- as specified by Mozilla: <https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Date/toISOString>+--+-- This is an alias for `formatISO8601Millis`.+formatISO8601Javascript :: UTCTime -> String+formatISO8601Javascript = formatISO8601Millis+++-- | Parses an ISO 8601 string.+parseISO8601 :: String -> Maybe UTCTime+parseISO8601 t = parseTime defaultTimeLocale "%FT%T%QZ" t