diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-01-30 09:17:17 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-01-30 11:01:15 +0000 |
| commit | 1cc5c9cc9d71928dbd3ec0e6b4061907534b14a2 (patch) | |
| tree | c96f33744c203e2489d57d7cdeab9be2438a1ee9 /libraries/base/System | |
| parent | 7291418244512605f2799a79a88dbfb4386b5532 (diff) | |
| download | haskell-1cc5c9cc9d71928dbd3ec0e6b4061907534b14a2.tar.gz | |
Use capi for mkfifo, tcsetattr and tcgetattr (for Android)
Submitted by: Nathan Hüsken <nathan.huesken@posteo.de>
Diffstat (limited to 'libraries/base/System')
| -rw-r--r-- | libraries/base/System/Posix/Internals.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/libraries/base/System/Posix/Internals.hs b/libraries/base/System/Posix/Internals.hs index 1633a3e508..e006a6273f 100644 --- a/libraries/base/System/Posix/Internals.hs +++ b/libraries/base/System/Posix/Internals.hs @@ -488,7 +488,8 @@ foreign import ccall unsafe "HsBase.h fork" foreign import ccall unsafe "HsBase.h link" c_link :: CString -> CString -> IO CInt -foreign import ccall unsafe "HsBase.h mkfifo" +-- capi is required at least on Android +foreign import capi unsafe "HsBase.h mkfifo" c_mkfifo :: CString -> CMode -> IO CInt foreign import ccall unsafe "HsBase.h pipe" @@ -503,10 +504,12 @@ foreign import capi unsafe "signal.h sigaddset" foreign import capi unsafe "signal.h sigprocmask" c_sigprocmask :: CInt -> Ptr CSigset -> Ptr CSigset -> IO CInt -foreign import ccall unsafe "HsBase.h tcgetattr" +-- capi is required at least on Android +foreign import capi unsafe "HsBase.h tcgetattr" c_tcgetattr :: CInt -> Ptr CTermios -> IO CInt -foreign import ccall unsafe "HsBase.h tcsetattr" +-- capi is required at least on Android +foreign import capi unsafe "HsBase.h tcsetattr" c_tcsetattr :: CInt -> CInt -> Ptr CTermios -> IO CInt foreign import capi unsafe "HsBase.h utime" |