X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FEnvironment.hs;h=3271e29422e0adaf98c46412597bc8744a3d8940;hb=0210db9aaa0c95be724258c74ce1dbc4b438fbe6;hp=de60de890fbc03d7129de673416f55a7bb0b165f;hpb=de21f9f20b5a1f6bb7204de6e52a97eec26aba1c;p=ghc-base.git

diff --git a/System/Environment.hs b/System/Environment.hs
index de60de8..3271e29 100644
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -34,7 +34,6 @@ import Foreign.C
 import Control.Exception 	( bracket )
 import Control.Monad
 import GHC.IOBase
-#include "ghcconfig.h"
 #endif
 
 #ifdef __HUGS__
@@ -102,7 +101,7 @@ unpackProgName argv = do
 
    isPathSeparator :: Char -> Bool
    isPathSeparator '/'  = True
-#ifdef mingw32_TARGET_OS 
+#ifdef mingw32_HOST_OS 
    isPathSeparator '\\' = True
 #endif
    isPathSeparator _    = False