diff options
| author | bringert <unknown> | 2005-04-26 08:54:11 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-04-26 08:54:11 +0000 |
| commit | 8b7e450f1cf8d88909b8ce78218c44b9b102e928 (patch) | |
| tree | fad6aa39630f8cf00ac5cb0b22d2015503738f6e /src/GF/System | |
| parent | 8f84c1934c8395553d72929e26e19da4c0ae58b9 (diff) | |
Changed IOExts import to Debug.Trace
Diffstat (limited to 'src/GF/System')
| -rw-r--r-- | src/GF/System/Tracing.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/System/Tracing.hs b/src/GF/System/Tracing.hs index e90a37648..71bacfb75 100644 --- a/src/GF/System/Tracing.hs +++ b/src/GF/System/Tracing.hs @@ -6,9 +6,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/16 05:40:50 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.3 $ +-- > CVS $Date: 2005/04/26 09:54:11 $ +-- > CVS $Author: bringert $ +-- > CVS $Revision: 1.4 $ -- -- Tracing utilities for debugging purposes. -- If the CPP symbol TRACING is set, then the debugging output is shown. @@ -18,7 +18,7 @@ module GF.System.Tracing (trace, trace2, traceM, traceCall, tracePrt, traceCalcFirst) where -import qualified IOExts +import qualified Debug.Trace as Trace -- | emit a string inside braces, before(?) calculating the value: -- @{str}@ @@ -44,7 +44,7 @@ tracePrt :: String -> (a -> String) -> a -> a traceCalcFirst :: a -> b -> b #if TRACING -trace str a = IOExts.trace (bold ++ "{" ++ normal ++ str ++ bold ++ "}" ++ normal) a +trace str a = Trace.trace (bold ++ "{" ++ normal ++ str ++ bold ++ "}" ++ normal) a trace2 fun str a = trace (bold ++ fgcol 1 ++ fun ++ ": " ++ normal ++ str) a traceM fun str = trace2 fun str (return ()) traceCall fun start prt val |