[project @ 2002-02-14 07:55:47 by sof]
authorsof <unknown>
Thu, 14 Feb 2002 07:55:47 +0000 (07:55 +0000)
committersof <unknown>
Thu, 14 Feb 2002 07:55:47 +0000 (07:55 +0000)
import SystemExts.rawSystem in mingw builds only

ghc/compiler/main/SysTools.lhs

index 2754cfb..066ae67 100644 (file)
@@ -94,7 +94,9 @@ import GHC.IOBase
 # else
 import PrelIOBase -- this can be removed when SystemExts is used
 # endif
+# ifdef mingw32_TARGET_OS
 import SystemExts       ( rawSystem )
+# endif
 #else
 import CError           ( throwErrnoIfMinus1 ) -- as can this
 import System          ( system )