From cca358b86edc72bcb641fca362960917783b599e Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sat, 30 Jan 2016 18:17:00 +0100 Subject: Replace `__hsunix_mknod` wrapper with CApiFFI --- System/Posix/Files.hsc | 2 +- System/Posix/Files/ByteString.hsc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'System') diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index 2df973d..d0ff4bf 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -215,7 +215,7 @@ createDevice path mode dev = withFilePath path $ \s -> throwErrnoPathIfMinus1_ "createDevice" path (c_mknod s mode dev) -foreign import ccall unsafe "__hsunix_mknod" +foreign import capi unsafe "HsUnix.h mknod" c_mknod :: CString -> CMode -> CDev -> IO CInt -- ----------------------------------------------------------------------------- diff --git a/System/Posix/Files/ByteString.hsc b/System/Posix/Files/ByteString.hsc index e560500..12bd39a 100644 --- a/System/Posix/Files/ByteString.hsc +++ b/System/Posix/Files/ByteString.hsc @@ -221,7 +221,7 @@ createDevice path mode dev = withFilePath path $ \s -> throwErrnoPathIfMinus1_ "createDevice" path (c_mknod s mode dev) -foreign import ccall unsafe "__hsunix_mknod" +foreign import capi unsafe "HsUnix.h mknod" c_mknod :: CString -> CMode -> CDev -> IO CInt -- ----------------------------------------------------------------------------- -- cgit v1.2.3