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

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds002.stderr

diff --git a/ghc/compiler/tests/deSugar/ds002.stderr b/ghc/compiler/tests/deSugar/ds002.stderr
new file mode 100644 (file)
index 0000000..4cd3d62
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds002.stderr
@@ -0,0 +1,12 @@
+Desugared:
+Test.f :: for all d. d -> d
+Test.f = /\ o88 -> \ x.104 -> x.104
+Test.g :: for all d, e, f. d -> e -> f -> f
+Test.g =
+    /\ o97 o98 t102 -> \ x.106 y.107 z.108 ->
+       let
+         fail.109 =
+             (error t102)
+                 "\"ds002.hs\", line 16: pattern-matching failure [function binding]\n"S
+       in  (Test.f t102) z.108
+