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

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

diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index fad365320359..d57f34b8a0d8 100644
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -83,8 +83,8 @@ writeRealAsm :: Handle -> AbstractC -> UniqSupply -> IO ()
 writeRealAsm handle absC us
   = _scc_ "writeRealAsm" (printDoc LeftMode handle (runNCG absC us))
 
-dumpRealAsm :: AbstractC -> UniqSupply -> String
-dumpRealAsm absC us = show (runNCG absC us)
+dumpRealAsm :: AbstractC -> UniqSupply -> Doc
+dumpRealAsm = runNCG
 
 runNCG absC
   = genCodeAbstractC absC	`thenUs` \ treelists ->
-- 
GitLab