From 09cfa12240f39f1c2b130ed10395e054ac7ff8e5 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 30 Jan 1998 13:55:58 +0000
Subject: [PATCH] [project @ 1998-01-30 13:55:58 by sof] buglet (showSDoc, not
show)
---
ghc/compiler/nativeGen/MachRegs.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 0b01a618de59..06cbae164e99 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}
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
--
GitLab