[project @ 2005-01-28 14:55:05 by simonmar]

[ghc-base.git] / Debug / Trace.hs

diff --git a/Debug/Trace.hs b/Debug/Trace.hs
index d0c0341..c287a4d 100644 (file)
--- a/Debug/Trace.hs
+++ b/Debug/Trace.hs
@@ -12,17 +12,13 @@
 --
 -----------------------------------------------------------------------------
 
-#ifdef __GLASGOW_HASKELL__
-#include "config.h"
-#endif
-
 module Debug.Trace (
        -- * Tracing
        
        -- ** 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 +34,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 +50,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 ()