X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Fprinting%2FPrint004.hs;fp=ghc%2Fcompiler%2Ftests%2Fprinting%2FPrint004.hs;h=a496159726a6690281c2c9110aeb1b346e4c3502;hb=40cc9182affda1964b480f5d251200d853ce2327;hp=2ea3a2073711aa1034e6ac87add5e561f6b9955a;hpb=bc2a4d6b2f9badfa98aa01d6ae550110e0eea0ed;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/printing/Print004.hs b/ghc/compiler/tests/printing/Print004.hs
index 2ea3a20..a496159 100644
--- a/ghc/compiler/tests/printing/Print004.hs
+++ b/ghc/compiler/tests/printing/Print004.hs
@@ -11,8 +11,8 @@
 
 module ExportOpaque( OpaqueType ) where
 
-data OpaqueType a = Con (FunnyInternalType a) deriving(Text)
+data OpaqueType a = Con (FunnyInternalType a) deriving(Show)
 
 data FunnyInternalType a = Junk11 | Junk2
 
-instance Ord a => Text (FunnyInternalType a)
+instance Ord a => Show (FunnyInternalType a)