From: ross <unknown>
Date: Wed, 5 Jan 2005 15:06:25 +0000 (+0000)
Subject: [project @ 2005-01-05 15:06:25 by ross]
X-Git-Tag: Initial_conversion_from_CVS_complete~1300
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=df68e45e1d7b934488be4d794f160ad5fac2a62c;p=ghc-hetmet.git

[project @ 2005-01-05 15:06:25 by ross]
recent non-GHCs can use System.Cmd.rawSystem
---

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index ede930b..12cc9cd 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fffi -cpp #-}
 
 ------------------------------------------------------------------------
--- $Id: Main.hs,v 1.62 2005/01/05 11:17:46 malcolm Exp $
+-- $Id: Main.hs,v 1.63 2005/01/05 15:06:25 ross Exp $
 --
 -- Program for converting .hsc files to .hs files, by converting the
 -- file into a C program which is run to generate the Haskell source.
@@ -36,6 +36,8 @@ import CString
 
 #ifdef __GLASGOW_HASKELL__
 import Compat.RawSystem 	( rawSystem )
+#elif __HUGS__ || __NHC__ >= 117
+import System.Cmd	 	( rawSystem )
 #else
 rawSystem prog args = system (prog++unwords args)
 #endif