From: sof Date: Thu, 14 Feb 2002 07:55:47 +0000 (+0000) Subject: [project @ 2002-02-14 07:55:47 by sof] X-Git-Tag: Approximately_9120_patches~61 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=910b485a6769cdd310542e9b3cdc2e5365d6f659;p=ghc-hetmet.git [project @ 2002-02-14 07:55:47 by sof] import SystemExts.rawSystem in mingw builds only --- diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs index 2754cfb..066ae67 100644 --- 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 )