X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=System%2FTime.hsc;h=91b677a54fe344290468007e7c723220c9696e7c;hb=eff5b5ab4fa292b2fd343fcdd2672a737ab0a98e;hp=75c8353ec32f16ece7e2dac1da5de992076468e0;hpb=0fc9708d952076f18bd20272e317a6d44dac7428;p=ghc-base.git

diff --git a/System/Time.hsc b/System/Time.hsc
index 75c8353..91b677a 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -242,7 +242,8 @@ getClockTime = do
 #else /* use POSIX time() */
 getClockTime = do
     secs <- time nullPtr -- can't fail, according to POSIX
-    return (TOD (fromIntegral secs) 0)
+    let realToInteger = round . realToFrac :: Real a => a -> Integer
+    return (TOD (realToInteger secs) 0)
 
 #endif