From: simonmar <unknown>
Date: Mon, 10 Apr 2000 14:05:57 +0000 (+0000)
Subject: [project @ 2000-04-10 14:05:57 by simonmar]
X-Git-Tag: Approximately_9120_patches~4757
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7d446f085a1e5ce22b3a54b718e79a3da1bd8091;p=ghc-hetmet.git

[project @ 2000-04-10 14:05:57 by simonmar]
Text => Show
---

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index aabe13e..bd72d6b 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -276,7 +276,7 @@ getNewRegNCG pk
   = getUniqueNat `thenNat` \ u ->
     returnNat (UnmappedReg u pk)
 
-instance Text Reg where
+instance Show Reg where
     showsPrec _ (FixedReg i)	= showString "%"  . shows IBOX(i)
     showsPrec _ (MappedReg i)	= showString "%"  . shows IBOX(i)
     showsPrec _ (MemoryReg i _) = showString "%M"  . shows i