summaryrefslogtreecommitdiff
path: root/ghc/compiler/tests/deSugar/ds037.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/compiler/tests/deSugar/ds037.hs')
-rw-r--r--ghc/compiler/tests/deSugar/ds037.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/tests/deSugar/ds037.hs b/ghc/compiler/tests/deSugar/ds037.hs
new file mode 100644
index 0000000000..924df509e0
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds037.hs
@@ -0,0 +1,4 @@
+--!!! AbsBinds with tyvars, no dictvars, but some dict binds
+--
+f x y = (fst (g y x), x+(1::Int))
+g x y = (fst (f x y), y+(1::Int))