From 2940ff3f0ca9aa4a4522ee61fea054052921c397 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 28 Jan 2005 13:36:34 +0000
Subject: [project @ 2005-01-28 13:36:25 by simonmar] Catch up with updates to
 platform #defines.

Generally: use _HOST_ rather than _TARGET_ (except in Cabal where we
have to retain compatibility with previous GHC versions).
---
 libraries/base/Debug/Trace.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'libraries/base/Debug')

diff --git a/libraries/base/Debug/Trace.hs b/libraries/base/Debug/Trace.hs
index 8b85f62f20..b442a11f60 100644
--- a/libraries/base/Debug/Trace.hs
+++ b/libraries/base/Debug/Trace.hs
@@ -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 ()
-- 
cgit v1.2.1