[project @ 1998-08-14 11:10:37 by sof]

[ghc-hetmet.git] / ghc / compiler / utils / Util.lhs

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 34d36ae..3319856 100644 (file)
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -47,6 +47,9 @@ module Util (
        IF_NOT_GHC(applyToSnd COMMA foldPair COMMA)
        unzipWith,
 
+       -- tracing (abstract away from lib home)
+       trace,
+
        -- error handling
        panic, panic#, assertPanic
 
@@ -56,6 +59,7 @@ module Util (
 
 import FastString      ( FastString )
 import List            ( zipWith4 )
+import GlaExts         ( trace )
 
 infixr 9 `thenCmp`
 \end{code}