diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-02-26 11:03:11 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-26 11:03:11 +0000 |
commit | b76084ef81d1d48782920dbd81fbdf30db5a4e3a (patch) | |
tree | d0a411913b2bdd17cb642c132d95e8cc30bc2e6f /System | |
parent | 74d4e5440730ccb0c8fc90c276fe8c5d26f9248d (diff) |
add C wrappers for lstat() and mknod(). Fixes #1086.
Diffstat (limited to 'System')
-rw-r--r-- | System/Posix/Files.hsc | 4 |
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 -- ----------------------------------------------------------------------------- |