diff options
Diffstat (limited to 'ghc/compiler/tests/rename/rn008.hs')
| -rw-r--r-- | ghc/compiler/tests/rename/rn008.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ghc/compiler/tests/rename/rn008.hs b/ghc/compiler/tests/rename/rn008.hs new file mode 100644 index 0000000000..45fc0de69e --- /dev/null +++ b/ghc/compiler/tests/rename/rn008.hs @@ -0,0 +1,14 @@ +module Test where + +-- two sets of mutually-recursive blobs: +-- f, g, h are mut rec +-- i, j, k are mut rec + +(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 |