From f169f66882ccd8227b3164dc8d487868df50e4f6 Mon Sep 17 00:00:00 2001
From: Paolo Capriotti
Date: Thu, 6 Sep 2012 11:30:40 +0100
Subject: Fix warnings.
---
System/Posix/Files/Common.hsc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'System')
diff --git a/System/Posix/Files/Common.hsc b/System/Posix/Files/Common.hsc
index ad52030..44d66e8 100644
--- a/System/Posix/Files/Common.hsc
+++ b/System/Posix/Files/Common.hsc
@@ -411,7 +411,7 @@ instance Storable CTimeSpec where
return $ CTimeSpec sec nsec
toCTimeSpec :: POSIXTime -> CTimeSpec
-toCTimeSpec t = CTimeSpec (CTime sec) (truncate $ 10^9 * frac)
+toCTimeSpec t = CTimeSpec (CTime sec) (truncate $ 10^(9::Int) * frac)
where
(sec, frac) = if (frac' < 0) then (sec' - 1, frac' + 1) else (sec', frac')
(sec', frac') = properFraction $ toRational t
@@ -441,7 +441,7 @@ instance Storable CTimeVal where
return $ CTimeVal sec usec
toCTimeVal :: POSIXTime -> CTimeVal
-toCTimeVal t = CTimeVal sec (truncate $ 10^6 * frac)
+toCTimeVal t = CTimeVal sec (truncate $ 10^(6::Int) * frac)
where
(sec, frac) = if (frac' < 0) then (sec' - 1, frac' + 1) else (sec', frac')
(sec', frac') = properFraction $ toRational t
--
cgit v1.2.3