From eff5b5ab4fa292b2fd343fcdd2672a737ab0a98e Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Tue, 15 Jun 2004 21:07:23 +0000
Subject: [PATCH] [project @ 2004-06-15 21:07:23 by panne] Yet another fix for
 the fact that CTime is not an instance of Integral anymore,

---
 System/Time.hsc |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
 
-- 
1.7.10.4