[commit: process] encoding: Remove MIN_VERSION_base pragmas (b4c2d52)
Max Bolingbroke
batterseapower at hotmail.com
Wed Apr 6 16:37:16 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/process
On branch : encoding
http://hackage.haskell.org/trac/ghc/changeset/b4c2d5297d09f3749ffd1f7b5a782ce60f506275
>---------------------------------------------------------------
commit b4c2d5297d09f3749ffd1f7b5a782ce60f506275
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date: Tue Apr 5 11:53:37 2011 +0100
Remove MIN_VERSION_base pragmas
>---------------------------------------------------------------
System/Process/Internals.hs | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index 49cf69f..0098d3b 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -81,7 +81,7 @@ import GHC.IOBase ( haFD, FD, IOException(..) )
import GHC.Handle
#endif
-#if MIN_VERSION_base(4,3,2) && !defined(mingw32_HOST_OS)
+#if (__GLASGOW_HASKELL__ > 700) && !defined(mingw32_HOST_OS)
import qualified GHC.Foreign as GHC
#endif
@@ -365,7 +365,7 @@ foreign import ccall unsafe "runInteractiveProcess"
-> IO PHANDLE
withFilePathLike :: FilePath -> (Ptr CString -> IO a) -> IO a
-#if __GLASGOW_HASKELL__ && MIN_VERSION_base(4,3,2)
+#if __GLASGOW_HASKELL__ > 700
withFilePathLike = GHC.withCString fileSystemEncoding
#else
withFilePathLike = withCString
More information about the Cvs-libraries
mailing list