X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fcompat%2FCompat%2FRawSystem.hs;h=f0f8aa3ac7175d4cdca3b4af8450cf01d0021266;hb=153b9cb9b11e05c4edb1b6bc0a7b972660e41f70;hp=196201a8b275eaeb698561861730302bb4c6d806;hpb=2f3ab1d82bc4d5c66916f650960c25609b1189fe;p=ghc-hetmet.git diff --git a/ghc/lib/compat/Compat/RawSystem.hs b/ghc/lib/compat/Compat/RawSystem.hs index 196201a..f0f8aa3 100644 --- a/ghc/lib/compat/Compat/RawSystem.hs +++ b/ghc/lib/compat/Compat/RawSystem.hs @@ -16,9 +16,7 @@ module Compat.RawSystem (rawSystem) where -#if __GLASGOW_HASKELL__ < 603 -#include "config.h" -#endif +#include "../../includes/ghcconfig.h" #if __GLASGOW_HASKELL__ >= 603 @@ -103,7 +101,7 @@ use lpCommandLine alone, which CreateProcess supports. ----------------------------------------------------------------------------- -} -#ifndef mingw32_TARGET_OS +#ifndef mingw32_HOST_OS rawSystem cmd args = withCString cmd $ \pcmd ->