From dba3cb5b1e6270e4f9f663a2b6fce198170a32b2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:10:37 +0000
Subject: [PATCH] [project @ 1998-08-14 11:10:37 by sof] abstract away the
 real home of trace, and re-export it from here

---
 ghc/compiler/utils/Util.lhs |    4 ++++
 1 file changed, 4 insertions(+)

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}
-- 
1.7.10.4