[commit: packages/time] format-widths, improve-leapseconds, master, posix-perf, tasty, wip/travis: fix posixToCTime for compile on 6.4 (81468e1)

git at git.haskell.org git at git.haskell.org
Mon Feb 20 21:07:31 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/81468e1dd2fe06e43bdd5368f9861b5b0c541435

>---------------------------------------------------------------

commit 81468e1dd2fe06e43bdd5368f9861b5b0c541435
Author: ashley <ashley at semantic.org>
Date:   Wed Apr 27 23:02:29 2005 -0700

    fix posixToCTime for compile on 6.4
    
    darcs-hash:20050428060229-ca2d0-86daee65c2a063f72be81d04c32aa3efed47180b


>---------------------------------------------------------------

81468e1dd2fe06e43bdd5368f9861b5b0c541435
 System/Time/Calendar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Time/Calendar.hs b/System/Time/Calendar.hs
index 58f38a3..97c6bac 100644
--- a/System/Time/Calendar.hs
+++ b/System/Time/Calendar.hs
@@ -55,7 +55,7 @@ utc = minutesToTimezone 0
 foreign import ccall unsafe "timestuff.h get_current_timezone_seconds" get_current_timezone_seconds :: CTime -> IO CLong
 
 posixToCTime :: POSIXTime -> CTime
-posixToCTime  = floor
+posixToCTime  = fromInteger . floor
 
 -- | Get the local time-zone for a given time (varying as per summertime adjustments)
 getTimezone :: UTCTime -> IO TimeZone



More information about the ghc-commits mailing list