[project @ 1997-08-14 18:27:10 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
deleted file mode 100644 (file)
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)