From: sof <unknown>
Date: Fri, 30 Jan 1998 13:55:58 +0000 (+0000)
Subject: [project @ 1998-01-30 13:55:58 by sof]
X-Git-Tag: Approx_2487_patches~1034
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=09cfa12240f39f1c2b130ed10395e054ac7ff8e5;p=ghc-hetmet.git

[project @ 1998-01-30 13:55:58 by sof]
buglet (showSDoc, not show)
---

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 0b01a61..06cbae1 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -94,7 +94,7 @@ dblImmLit r
 	 IF_ARCH_alpha({-prepend nothing-}
 	,IF_ARCH_i386( '0' : 'd' :
 	,IF_ARCH_sparc('0' : 'r' :,)))
-	show (rational r))
+	showSDoc (rational r))
 \end{code}
 
 % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -