projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-28 13:36:25 by simonmar]
[ghc-base.git]
/
Debug
/
Trace.hs
diff --git
a/Debug/Trace.hs
b/Debug/Trace.hs
index
8b85f62
..
b442a11
100644
(file)
--- a/
Debug/Trace.hs
+++ b/
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 ()
-- ** 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 ()
winDebugTracer, -- :: String -> IO ()
#endif
addTracer, -- :: String -> (String -> IO ()) -> IO ()
@@
-38,7
+38,7
@@
import Data.IORef
import System.IO.Unsafe
import System.IO
import System.IO.Unsafe
import System.IO
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
import Foreign.C.String
#endif
import Foreign.C.String
#endif
@@
-54,7
+54,7
@@
fileTracer handle msg = do
hPutStr handle msg
hPutChar handle '\n'
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 ()
-- | A tracer function that outputs the message to the debuger (Windows only)
winDebugTracer :: String -- ^ trace message
-> IO ()