[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