[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / test / static / s034.hs

diff --git a/ghc/interpreter/test/static/s034.hs b/ghc/interpreter/test/static/s034.hs
new file mode 100644 (file)
index 0000000..0a764af
--- /dev/null
+++ b/ghc/interpreter/test/static/s034.hs
@@ -0,0 +1,4 @@
+--!!! Trying to export restricted type synonyms
+module M(T(..)) where
+type T = Char in x :: T
+x = 'a'
\ No newline at end of file