[commit: unix] master: Fix warnings. (868c6df)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/unix

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/868c6df0de51011eabe9d07129436b4601744a35

>---------------------------------------------------------------

commit 868c6df0de51011eabe9d07129436b4601744a35
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Wed Jul 18 11:51:26 2012 +0100

    Fix warnings.

>---------------------------------------------------------------

 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