From: sof <unknown>
Date: Fri, 14 Aug 1998 11:10:37 +0000 (+0000)
Subject: [project @ 1998-08-14 11:10:37 by sof]
X-Git-Tag: Approx_2487_patches~428
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dba3cb5b1e6270e4f9f663a2b6fce198170a32b2;p=ghc-hetmet.git

[project @ 1998-08-14 11:10:37 by sof]
abstract away the real home of trace, and re-export it from here
---

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 34d36ae..3319856 100644
--- 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}