[project @ 1997-07-31 02:22:44 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / rename / rn008.hs

diff --git a/ghc/compiler/tests/rename/rn008.hs b/ghc/compiler/tests/rename/rn008.hs
deleted file mode 100644 (file)
index b41379c..0000000
--- a/ghc/compiler/tests/rename/rn008.hs
+++ /dev/null
@@ -1,15 +0,0 @@
---!!! two sets of mutually-recursive blobs:
---!!!  f, g, h are mut rec
---!!!  i, j, k are mut rec
-module Test where
-
-data Foo a = Foo a Int Int
-
-(f1@(f2@(f3@f)), 1) = g 1 1
-(i1@(i2@(i3@i)), 1) = j 1 1
-
-(Foo g 1 2) = (h, 1, 1, 2)
-(Foo j 1 2) = (k, 1, 1, 2)
-
-(~ ~ ~ ~h, 1, 2, 3) = f 3
-(~ ~ ~ ~k, 1, 2, 3) = i 3