diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 18:13:39 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 18:13:39 +0100 |
commit | 7a2f3f41b4492c9d2e846ebd832ba7ddbaf063ac (patch) | |
tree | 85461dd3b5a6c27ac48c3edefe8ec696261f6ce3 /System | |
parent | 2b47647ebef1499ceb5e77d7e19c4c8745b473c7 (diff) |
Replace `__hsunix_lstat` wrapper with CApiFFI
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Files.hsc | 2 | ||||
-rw-r--r-- | System/Posix/Files/ByteString.hsc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index b18a8df..2df973d 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -187,7 +187,7 @@ getSymbolicLinkStatus path = do throwErrnoPathIfMinus1_ "getSymbolicLinkStatus" path (c_lstat s p) return (FileStatus fp) -foreign import ccall unsafe "__hsunix_lstat" +foreign import capi unsafe "HsUnix.h lstat" c_lstat :: CString -> Ptr CStat -> IO CInt -- | @createNamedPipe fifo mode@ diff --git a/System/Posix/Files/ByteString.hsc b/System/Posix/Files/ByteString.hsc index 3f26f73..e560500 100644 --- a/System/Posix/Files/ByteString.hsc +++ b/System/Posix/Files/ByteString.hsc @@ -193,7 +193,7 @@ getSymbolicLinkStatus path = do throwErrnoPathIfMinus1_ "getSymbolicLinkStatus" path (c_lstat s p) return (FileStatus fp) -foreign import ccall unsafe "__hsunix_lstat" +foreign import capi unsafe "HsUnix.h lstat" c_lstat :: CString -> Ptr CStat -> IO CInt -- | @createNamedPipe fifo mode@ |