aboutsummaryrefslogtreecommitdiffhomepage
path: root/System
diff options
context:
space:
mode:
authorGravatar Simon Marlow <simonmar@microsoft.com>2007-02-26 11:03:11 +0000
committerGravatar Simon Marlow <simonmar@microsoft.com>2007-02-26 11:03:11 +0000
commitb76084ef81d1d48782920dbd81fbdf30db5a4e3a (patch)
treed0a411913b2bdd17cb642c132d95e8cc30bc2e6f /System
parent74d4e5440730ccb0c8fc90c276fe8c5d26f9248d (diff)
add C wrappers for lstat() and mknod(). Fixes #1086.
Diffstat (limited to 'System')
-rw-r--r--System/Posix/Files.hsc4
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc
index eee52cb..0c80c07 100644
--- a/System/Posix/Files.hsc
+++ b/System/Posix/Files.hsc
@@ -394,7 +394,7 @@ getSymbolicLinkStatus path = do
throwErrnoPathIfMinus1_ "getSymbolicLinkStatus" path (c_lstat s p)
return (FileStatus fp)
-foreign import ccall unsafe "lstat"
+foreign import ccall unsafe "__hsunix_lstat"
c_lstat :: CString -> Ptr CStat -> IO CInt
-- | @createNamedPipe fifo mode@
@@ -421,7 +421,7 @@ createDevice path mode dev =
withCString path $ \s ->
throwErrnoPathIfMinus1_ "createDevice" path (c_mknod s mode dev)
-foreign import ccall unsafe "mknod"
+foreign import ccall unsafe "__hsunix_mknod"
c_mknod :: CString -> CMode -> CDev -> IO CInt
-- -----------------------------------------------------------------------------