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 14:55:05 by simonmar]
[ghc-base.git]
/
Debug
/
Trace.hs
diff --git
a/Debug/Trace.hs
b/Debug/Trace.hs
index
00af949
..
c287a4d
100644
(file)
--- a/
Debug/Trace.hs
+++ b/
Debug/Trace.hs
@@
-12,17
+12,13
@@
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
-#ifndef __HUGS__
-#include "config.h"
-#endif
-
module Debug.Trace (
-- * Tracing
-- ** Tracers
-- | The tracer is a function that monitors the trace messages.
fileTracer, -- :: Handle -> String -> IO ()
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 ()
winDebugTracer, -- :: String -> IO ()
#endif
addTracer, -- :: String -> (String -> IO ()) -> IO ()
@@
-38,7
+34,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
+50,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 ()