[project @ 1996-01-08 20:28:12 by partain]

[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
new file mode 100644 (file)
index 0000000..2ea3a20
--- /dev/null
+++ b/ghc/compiler/tests/printing/Print004.hs
@@ -0,0 +1,18 @@
+--!!! 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(Text)
+
+data FunnyInternalType a = Junk11 | Junk2
+
+instance Ord a => Text (FunnyInternalType a)