diff options
author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-18 11:51:26 +0100 |
---|---|---|
committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-07-18 11:51:26 +0100 |
commit | 868c6df0de51011eabe9d07129436b4601744a35 (patch) | |
tree | 92630f9024449d69ef6be424af39147895add626 /System | |
parent | 9acb33c819356a49068ec041c38e438d335e9781 (diff) |
Fix warnings.
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Files/Common.hsc | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/System/Posix/Files/Common.hsc b/System/Posix/Files/Common.hsc index 01f9fb3..cdbd07f 100644 --- a/System/Posix/Files/Common.hsc +++ b/System/Posix/Files/Common.hsc @@ -271,69 +271,69 @@ statusChangeTime (FileStatus stat) = unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_ctime) accessTimeHiRes (FileStatus stat) = - unsafePerformIO $ withForeignPtr stat $ \stat -> do - sec <- (#peek struct stat, st_atime) stat :: IO EpochTime + unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do + sec <- (#peek struct stat, st_atime) stat_ptr :: IO EpochTime #ifdef HAVE_STRUCT_STAT_ST_ATIM - nsec <- (#peek struct stat, st_atim.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_atim.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_ATIMESPEC - nsec <- (#peek struct stat, st_atimespec.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_atimespec.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_ATIMENSEC - nsec <- (#peek struct stat, st_atimensec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_atimensec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_ATIME_N - nsec <- (#peek struct stat, st_atime_n) stat :: IO (#type int) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_atime_n) stat_ptr :: IO (#type int) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_UATIME - usec <- (#peek struct stat, st_uatime) stat :: IO (#type int) - let frac = toInteger usec % 10^6 + usec <- (#peek struct stat, st_uatime) stat_ptr :: IO (#type int) + let frac = toInteger usec % 10^(6::Int) #else let frac = 0 #endif return $ fromRational $ toRational sec + frac modificationTimeHiRes (FileStatus stat) = - unsafePerformIO $ withForeignPtr stat $ \stat -> do - sec <- (#peek struct stat, st_mtime) stat :: IO EpochTime + unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do + sec <- (#peek struct stat, st_mtime) stat_ptr :: IO EpochTime #ifdef HAVE_STRUCT_STAT_ST_MTIM - nsec <- (#peek struct stat, st_mtim.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_mtim.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_MTIMESPEC - nsec <- (#peek struct stat, st_mtimespec.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_mtimespec.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_MTIMENSEC - nsec <- (#peek struct stat, st_mtimensec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_mtimensec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_MTIME_N - nsec <- (#peek struct stat, st_mtime_n) stat :: IO (#type int) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_mtime_n) stat_ptr :: IO (#type int) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_UMTIME - usec <- (#peek struct stat, st_umtime) stat :: IO (#type int) - let frac = toInteger usec % 10^6 + usec <- (#peek struct stat, st_umtime) stat_ptr :: IO (#type int) + let frac = toInteger usec % 10^(6::Int) #else let frac = 0 #endif return $ fromRational $ toRational sec + frac statusChangeTimeHiRes (FileStatus stat) = - unsafePerformIO $ withForeignPtr stat $ \stat -> do - sec <- (#peek struct stat, st_ctime) stat :: IO EpochTime + unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do + sec <- (#peek struct stat, st_ctime) stat_ptr :: IO EpochTime #ifdef HAVE_STRUCT_STAT_ST_CTIM - nsec <- (#peek struct stat, st_ctim.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_ctim.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_CTIMESPEC - nsec <- (#peek struct stat, st_ctimespec.tv_nsec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_ctimespec.tv_nsec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_CTIMENSEC - nsec <- (#peek struct stat, st_ctimensec) stat :: IO (#type long) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_ctimensec) stat_ptr :: IO (#type long) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_CTIME_N - nsec <- (#peek struct stat, st_ctime_n) stat :: IO (#type int) - let frac = toInteger nsec % 10^9 + nsec <- (#peek struct stat, st_ctime_n) stat_ptr :: IO (#type int) + let frac = toInteger nsec % 10^(9::Int) #elif HAVE_STRUCT_STAT_ST_UCTIME - usec <- (#peek struct stat, st_uctime) stat :: IO (#type int) - let frac = toInteger usec % 10^6 + usec <- (#peek struct stat, st_uctime) stat_ptr :: IO (#type int) + let frac = toInteger usec % 10^(6::Int) #else let frac = 0 #endif |