X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=b442a11f60147025636ec84e939d1c1f7c411d57;hb=ec3ba94b254bd444e7a1c560c1d91c4879948c69;hp=00af949724e5343f691156bf0362c64cfa7e978a;hpb=74f9531c9030985a0adcec184f562218dd8aab7c;p=ghc-base.git

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index 00af949..b442a11 100644
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -12,8 +12,8 @@
 --
 -----------------------------------------------------------------------------
 
-#ifndef __HUGS__
-#include "config.h"
+#ifdef __GLASGOW_HASKELL__
+#include "ghcconfig.h"
 #endif
 
 module Debug.Trace (
@@ -22,7 +22,7 @@ module Debug.Trace (
 	-- ** Tracers
 	-- | The tracer is a function that monitors the trace messages.
 	fileTracer,       -- :: Handle -> String -> IO ()
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 	winDebugTracer,   -- :: String -> IO ()
 #endif
 	addTracer,        -- :: String -> (String -> IO ()) -> IO ()
@@ -38,7 +38,7 @@ import Data.IORef
 import System.IO.Unsafe
 import System.IO
 
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 import Foreign.C.String
 #endif
 
@@ -54,7 +54,7 @@ fileTracer handle msg = do
    hPutStr handle msg
    hPutChar handle '\n'
 
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
 -- | A tracer function that outputs the message to the debuger (Windows only)
 winDebugTracer :: String  -- ^ trace message
                -> IO ()