Fix warnings.
authorPaolo Capriotti <p.capriotti@gmail.com>
Wed, 18 Jul 2012 10:51:26 +0000 (11:51 +0100)
committerPaolo Capriotti <p.capriotti@gmail.com>
Wed, 18 Jul 2012 10:51:26 +0000 (11:51 +0100)
System/Posix/Files/Common.hsc

index 01f9fb3..cdbd07f 100644 (file)
@@ -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