[commit: packages/process] master: Add stopDelegateControlC for Windows 32bit (deeb7c8)
git at git.haskell.org
git at git.haskell.org
Thu Mar 19 11:37:52 UTC 2015
Repository : ssh://git@git.haskell.org/process
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/deeb7c8a303c744684afa0f29c2b332a89262294/process
>---------------------------------------------------------------
commit deeb7c8a303c744684afa0f29c2b332a89262294
Author: Takenobu Tani <takenobu.hs at gmail.com>
Date: Tue Feb 17 23:08:21 2015 +0900
Add stopDelegateControlC for Windows 32bit
`Internals.hs` has an expect list for `stopDelegateControlC`.
But the implementation is `#ifdef`'d between Unix and Windows.
And `stopDelegateControlC` was not defined on Windows.
This patch fixes Windows case by a no-op function for the issue #21
>---------------------------------------------------------------
deeb7c8a303c744684afa0f29c2b332a89262294
System/Process/Internals.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index 03b19b3..23e92a2 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -469,6 +469,9 @@ startDelegateControlC = return ()
endDelegateControlC :: ExitCode -> IO ()
endDelegateControlC _ = return ()
+stopDelegateControlC :: IO ()
+stopDelegateControlC = return ()
+
foreign import ccall unsafe "runInteractiveProcess"
c_runInteractiveProcess
:: CWString
More information about the ghc-commits
mailing list