Skip to content
Snippets Groups Projects
Commit 868c6df0 authored by pcapriotti's avatar pcapriotti
Browse files

Fix warnings.

parent 9acb33c8
No related branches found
Tags ghc-9.4.1-alpha3
No related merge requests found
Hide whitespace changes
Inline Side-by-side
System/Posix/Files/Common.hsc
+ 36
− 36
View file @ 868c6df0
...@@ -271,69 +271,69 @@ statusChangeTime (FileStatus stat) = ...@@ -271,69 +271,69 @@ statusChangeTime (FileStatus stat) =
unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_ctime) unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_ctime)
accessTimeHiRes (FileStatus stat) = accessTimeHiRes (FileStatus stat) =
unsafePerformIO $ withForeignPtr stat $ \stat -> do unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do
sec <- (#peek struct stat, st_atime) stat :: IO EpochTime sec <- (#peek struct stat, st_atime) stat_ptr :: IO EpochTime
#ifdef HAVE_STRUCT_STAT_ST_ATIM #ifdef HAVE_STRUCT_STAT_ST_ATIM
nsec <- (#peek struct stat, st_atim.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_atim.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_ATIMESPEC #elif HAVE_STRUCT_STAT_ST_ATIMESPEC
nsec <- (#peek struct stat, st_atimespec.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_atimespec.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_ATIMENSEC #elif HAVE_STRUCT_STAT_ST_ATIMENSEC
nsec <- (#peek struct stat, st_atimensec) stat :: IO (#type long) nsec <- (#peek struct stat, st_atimensec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_ATIME_N #elif HAVE_STRUCT_STAT_ST_ATIME_N
nsec <- (#peek struct stat, st_atime_n) stat :: IO (#type int) nsec <- (#peek struct stat, st_atime_n) stat_ptr :: IO (#type int)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_UATIME #elif HAVE_STRUCT_STAT_ST_UATIME
usec <- (#peek struct stat, st_uatime) stat :: IO (#type int) usec <- (#peek struct stat, st_uatime) stat_ptr :: IO (#type int)
let frac = toInteger usec % 10^6 let frac = toInteger usec % 10^(6::Int)
#else #else
let frac = 0 let frac = 0
#endif #endif
return $ fromRational $ toRational sec + frac return $ fromRational $ toRational sec + frac
modificationTimeHiRes (FileStatus stat) = modificationTimeHiRes (FileStatus stat) =
unsafePerformIO $ withForeignPtr stat $ \stat -> do unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do
sec <- (#peek struct stat, st_mtime) stat :: IO EpochTime sec <- (#peek struct stat, st_mtime) stat_ptr :: IO EpochTime
#ifdef HAVE_STRUCT_STAT_ST_MTIM #ifdef HAVE_STRUCT_STAT_ST_MTIM
nsec <- (#peek struct stat, st_mtim.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_mtim.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_MTIMESPEC #elif HAVE_STRUCT_STAT_ST_MTIMESPEC
nsec <- (#peek struct stat, st_mtimespec.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_mtimespec.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_MTIMENSEC #elif HAVE_STRUCT_STAT_ST_MTIMENSEC
nsec <- (#peek struct stat, st_mtimensec) stat :: IO (#type long) nsec <- (#peek struct stat, st_mtimensec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_MTIME_N #elif HAVE_STRUCT_STAT_ST_MTIME_N
nsec <- (#peek struct stat, st_mtime_n) stat :: IO (#type int) nsec <- (#peek struct stat, st_mtime_n) stat_ptr :: IO (#type int)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_UMTIME #elif HAVE_STRUCT_STAT_ST_UMTIME
usec <- (#peek struct stat, st_umtime) stat :: IO (#type int) usec <- (#peek struct stat, st_umtime) stat_ptr :: IO (#type int)
let frac = toInteger usec % 10^6 let frac = toInteger usec % 10^(6::Int)
#else #else
let frac = 0 let frac = 0
#endif #endif
return $ fromRational $ toRational sec + frac return $ fromRational $ toRational sec + frac
statusChangeTimeHiRes (FileStatus stat) = statusChangeTimeHiRes (FileStatus stat) =
unsafePerformIO $ withForeignPtr stat $ \stat -> do unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do
sec <- (#peek struct stat, st_ctime) stat :: IO EpochTime sec <- (#peek struct stat, st_ctime) stat_ptr :: IO EpochTime
#ifdef HAVE_STRUCT_STAT_ST_CTIM #ifdef HAVE_STRUCT_STAT_ST_CTIM
nsec <- (#peek struct stat, st_ctim.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_ctim.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_CTIMESPEC #elif HAVE_STRUCT_STAT_ST_CTIMESPEC
nsec <- (#peek struct stat, st_ctimespec.tv_nsec) stat :: IO (#type long) nsec <- (#peek struct stat, st_ctimespec.tv_nsec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_CTIMENSEC #elif HAVE_STRUCT_STAT_ST_CTIMENSEC
nsec <- (#peek struct stat, st_ctimensec) stat :: IO (#type long) nsec <- (#peek struct stat, st_ctimensec) stat_ptr :: IO (#type long)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_CTIME_N #elif HAVE_STRUCT_STAT_ST_CTIME_N
nsec <- (#peek struct stat, st_ctime_n) stat :: IO (#type int) nsec <- (#peek struct stat, st_ctime_n) stat_ptr :: IO (#type int)
let frac = toInteger nsec % 10^9 let frac = toInteger nsec % 10^(9::Int)
#elif HAVE_STRUCT_STAT_ST_UCTIME #elif HAVE_STRUCT_STAT_ST_UCTIME
usec <- (#peek struct stat, st_uctime) stat :: IO (#type int) usec <- (#peek struct stat, st_uctime) stat_ptr :: IO (#type int)
let frac = toInteger usec % 10^6 let frac = toInteger usec % 10^(6::Int)
#else #else
let frac = 0 let frac = 0
#endif #endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment