diff options
| author |  Paolo Capriotti <p.capriotti@gmail.com> | 2012-09-06 11:30:40 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-09-06 11:30:40 +0100 |
| commit | f169f66882ccd8227b3164dc8d487868df50e4f6 (patch) | |
| tree | 32dc5da6396375b8fea677143c32c7b7a23eef5b /System | |
| parent | 62e07b8a423a78556e2f5d86d1affe7cca4c8896 (diff) | |
Fix warnings.
Diffstat (limited to 'System')
| -rw-r--r-- | System/Posix/Files/Common.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
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 |