diff options
| author |  Herbert Valerio Riedel <hvr@gnu.org> | 2013-10-12 13:24:45 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-10-12 13:24:45 +0200 |
| commit | 2b69c54bbbc85993cb2456ecb60a40adb574ccda (patch) | |
| tree | 8dc41de1c014ca448220897de43366f31e79fc73 /System/Posix/Process | |
| parent | 84ca1d2b4477076bc4441b7ba5a554162a272162 (diff) | |
Make compatible again for GHC back to 7.4.1
By avoiding `import Foreign` this accomplishes backward-compatibility
w.r.t. the `unsafePerformIO` relocation w/o resorting to CPP
conditionals.
Moreover, in order to support base<4.7 this commits needs to reintroduce
a harmless backport of `newFilePath`.
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'System/Posix/Process')
| -rw-r--r-- | System/Posix/Process/Common.hsc | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/System/Posix/Process/Common.hsc b/System/Posix/Process/Common.hsc index 3bcc505..51c75b3 100644 --- a/System/Posix/Process/Common.hsc +++ b/System/Posix/Process/Common.hsc @@ -313,11 +313,6 @@ getProcessStatus block stopped pid = _ -> do ps <- readWaitStatus wstatp return (Just ps) -#if __GLASGOW_HASKELL__ < 701 --- not available prior to 7.1 -#define interruptible safe -#endif - -- safe/interruptible, because this call might block foreign import ccall interruptible "waitpid" c_waitpid :: CPid -> Ptr CInt -> CInt -> IO CPid |