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