[commit: process] master: Remove nhc98-specific files and content (e5fc2ac)

Ian Lynagh igloo at earth.li
Fri Feb 15 23:57:46 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/packages/process

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e5fc2ac7caa7992eb353dfe36b808c85e94b6792

>---------------------------------------------------------------

commit e5fc2ac7caa7992eb353dfe36b808c85e94b6792
Author: Ian Lynagh <ian at well-typed.com>
Date:   Fri Feb 15 20:59:03 2013 +0000

    Remove nhc98-specific files and content

>---------------------------------------------------------------

 System/Cmd.hs     |   16 ----------------
 System/Process.hs |    4 ----
 2 files changed, 0 insertions(+), 20 deletions(-)

diff --git a/System/Cmd.hs b/System/Cmd.hs
index 989572c..8be2ef3 100644
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -27,21 +27,5 @@ module System.Cmd
       rawSystem,     -- :: FilePath -> [String] -> IO ExitCode
     ) where
 
-#ifndef __NHC__
 import System.Process
-#else
-import System
-
-rawSystem :: String -> [String] -> IO ExitCode
-rawSystem cmd args = system (unwords (map translate (cmd:args)))
-
--- copied from System.Process (qv)
-translate :: String -> String
-translate str = '"' : snd (foldr escape (True,"\"") str)
-  where escape '"'  (b,     str) = (True,  '\\' : '"'  : str)
-        escape '\\' (True,  str) = (True,  '\\' : '\\' : str)
-        escape '\\' (False, str) = (False, '\\' : str)
-        escape c    (b,     str) = (False, c : str)
-
-#endif
 
diff --git a/System/Process.hs b/System/Process.hs
index 967aedd..0557284 100644
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -103,10 +103,6 @@ import System.Posix.Signals
 import Hugs.System
 #endif
 
-#ifdef __NHC__
-import System (system)
-#endif
-
 
 #ifndef __HUGS__
 -- ----------------------------------------------------------------------------





More information about the ghc-commits mailing list