Commit e5fc2ac7 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Remove nhc98-specific files and content

parent e2aefe9f
......@@ -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
......@@ -103,10 +103,6 @@ import System.Posix.Signals
import Hugs.System
#endif
#ifdef __NHC__
import System (system)
#endif
#ifndef __HUGS__
-- ----------------------------------------------------------------------------
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment