diff options
| author | simonmar <unknown> | 2005-01-28 13:36:34 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-01-28 13:36:34 +0000 |
| commit | 2940ff3f0ca9aa4a4522ee61fea054052921c397 (patch) | |
| tree | ee318335bbdc5d44e3dd51918d93c0c6a8de1edf /libraries/base/Debug/Trace.hs | |
| parent | 3a682aa855ace3304e7ce1c7bd965316053ebb25 (diff) | |
| download | haskell-2940ff3f0ca9aa4a4522ee61fea054052921c397.tar.gz | |
[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).
Diffstat (limited to 'libraries/base/Debug/Trace.hs')
| -rw-r--r-- | libraries/base/Debug/Trace.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 () |