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=0000000000000000000000000000000000000000;hb=59cada2ff07d73b5d533f8fb2912480352861f08;hp=a496159726a6690281c2c9110aeb1b346e4c3502;hpb=d9de62d5329690525828f0e6453a086c54cb4517;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/printing/Print004.hs b/ghc/compiler/tests/printing/Print004.hs
deleted file mode 100644
index a496159..0000000
--- a/ghc/compiler/tests/printing/Print004.hs
+++ /dev/null
@@ -1,18 +0,0 @@
---!!! export a derived thingy which mentions an internal type
---
-{- from simonpj; who adds:
-
-   It is NOT ENOUGH to put
-
-	   data OpaqueType deriving(Text)
-
-   in the interface
--}
-
-module ExportOpaque( OpaqueType ) where
-
-data OpaqueType a = Con (FunnyInternalType a) deriving(Show)
-
-data FunnyInternalType a = Junk11 | Junk2
-
-instance Ord a => Show (FunnyInternalType a)