From 655f2c77f128e8ec62b1b0de1f92d21fbb61ab47 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 20:21:59 +0000
Subject: [PATCH] [project @ 1997-09-04 20:21:59 by sof] ppr wibble

---
 ghc/compiler/absCSyn/PprAbsC.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 23c530b..bfa229b 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -76,8 +76,8 @@ call to a cost evaluation function @GRAN_EXEC@. For that,
 writeRealC :: Handle -> AbstractC -> IO ()
 writeRealC handle absC = printDoc LeftMode handle (pprAbsC PprForC absC (costs absC))
 
-dumpRealC :: AbstractC -> String
-dumpRealC absC = show (pprAbsC PprForC absC (costs absC))
+dumpRealC :: AbstractC -> Doc
+dumpRealC absC = pprAbsC PprForC absC (costs absC)
 \end{code}
 
 This emits the macro,  which is used in GrAnSim  to compute the total costs
-- 
1.7.10.4