[project @ 2002-02-14 07:55:47 by sof]

[ghc-hetmet.git] / ghc / compiler / main / SysTools.lhs

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 2754cfb..066ae67 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -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 )