thyme 0.3.5.4 → 0.3.5.5

raw patch · 3 files changed

+10/−11 lines, 3 files

Files

• src/Data/Thyme/Clock/Internal.hs +1/−1
• src/Data/Thyme/Format.hs +8/−9
• thyme.cabal +1/−1

@@ -215,7 +215,7 @@ -- <http://en.wikipedia.org/wiki/DUT1 DUT1>. newtype UniversalTime = UniversalRep NominalDiffTime deriving (INSTANCES_MICRO) -derivingUnbox "UnversalTime" [t| UniversalTime -> NominalDiffTime |]+derivingUnbox "UniversalTime" [t| UniversalTime -> NominalDiffTime |]     [| \ (UniversalRep a) -> a |] [| UniversalRep |]  -- | View 'UniversalTime' as a fractional number of days since the

@@ -466,24 +466,23 @@         tpPOSIXTime = zeroV         tpTimeZone = utc -{-# INLINE buildTimeParser #-}-buildTimeParser :: (ParseTime t) => TimeLocale -> String -> Parser t-buildTimeParser l spec = buildTime-    <$ P.skipSpace <*> timeParser l spec <* P.skipSpace <* P.endOfInput- {-# INLINEABLE parseTime #-} parseTime :: (ParseTime t) => TimeLocale -> String -> String -> Maybe t parseTime l spec = either (const Nothing) Just-    . P.parseOnly (buildTimeParser l spec) . utf8String+        . P.parseOnly parser . utf8String where+    parser = buildTime <$ P.skipSpace <*> timeParser l spec+        <* P.skipSpace <* P.endOfInput  {-# INLINEABLE readTime #-} readTime :: (ParseTime t) => TimeLocale -> String -> String -> t-readTime l spec = either error id-    . P.parseOnly (buildTimeParser l spec) . utf8String+readTime l spec = either error id . P.parseOnly parser . utf8String where+    parser = buildTime <$ P.skipSpace <*> timeParser l spec+        <* P.skipSpace <* P.endOfInput  {-# INLINEABLE readsTime #-} readsTime :: (ParseTime t) => TimeLocale -> String -> ReadS t-readsTime l = parserToReadS . buildTimeParser l+readsTime l spec = parserToReadS $+    buildTime <$ P.skipSpace <*> timeParser l spec  ------------------------------------------------------------------------ 

@@ -1,5 +1,5 @@ name:           thyme-version:        0.3.5.4+version:        0.3.5.5 synopsis:       A faster time library description:     Thyme is a rewrite of the fine @time@ library, with a particular focus