[project @ 1997-05-26 05:58:06 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / printing / Print004.hs

diff --git a/ghc/compiler/tests/printing/Print004.hs b/ghc/compiler/tests/printing/Print004.hs
index 2ea3a20..a496159 100644 (file)
--- 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)