From 7d446f085a1e5ce22b3a54b718e79a3da1bd8091 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 10 Apr 2000 14:05:57 +0000
Subject: [PATCH] [project @ 2000-04-10 14:05:57 by simonmar] Text => 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 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
-- 
1.7.10.4