strptime 1.0.2 → 1.0.3

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

Data/Time/Parse.hsc +1/−1
strptime.cabal +2/−1

Data/Time/Parse.hsc view

@@ -95,7 +95,7 @@               year  <-  (#peek struct tm,tm_year ) p_tm :: IO CInt               fsecs <-  peek p_fsecs               let day = fromGregorian (fromIntegral (year+1900)) (1+fromIntegral month) (fromIntegral mday)-              let tod = TimeOfDay (fromIntegral hour) (fromIntegral min) (fromIntegral (sec*1000000 + round (fsecs*1000000)) / fromIntegral 1000000)+              let tod = TimeOfDay (fromIntegral hour) (fromIntegral min) (fromIntegral (round ((fromIntegral sec + fsecs)*1000000)) / fromIntegral 1000000)                              touchForeignPtr fztf

strptime.cabal view

@@ -1,6 +1,6 @@ Name: strptime Category: System, Data, Parsing-Version: 1.0.2+Version: 1.0.3 Cabal-version: >= 1.2 Build-type: Simple Copyright: Eugene Kirpichov@@ -29,6 +29,7 @@ Library   Build-Depends: time, bytestring   C-sources: cbits/hstrptime.c+  GHC-Options: -O2   Include-dirs: include    if flag(split-base)