From df68e45e1d7b934488be4d794f160ad5fac2a62c Mon Sep 17 00:00:00 2001 From: ross Date: Wed, 5 Jan 2005 15:06:25 +0000 Subject: [PATCH] [project @ 2005-01-05 15:06:25 by ross] recent non-GHCs can use System.Cmd.rawSystem --- ghc/utils/hsc2hs/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4