From: sof <unknown>
Date: Thu, 4 Sep 1997 20:21:59 +0000 (+0000)
Subject: [project @ 1997-09-04 20:21:59 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~2
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=655f2c77f128e8ec62b1b0de1f92d21fbb61ab47

[project @ 1997-09-04 20:21:59 by sof]
ppr wibble
---

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