[project @ 1997-09-05 14:11:05 by simonm]

[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds039.stderr

diff --git a/ghc/tests/deSugar/should_compile/ds039.stderr b/ghc/tests/deSugar/should_compile/ds039.stderr
index 1ff3f31..fcc5f33 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds039.stderr
+++ b/ghc/tests/deSugar/should_compile/ds039.stderr
@@ -2,7 +2,15 @@
 
 ================================================================================
 Desugared:
+Rec {
+f{-r1,x-}  ::  _forall_ [tak6] => tak6 -> [tak6] -> [tak6]
 {-# L #-}
-f = _/\_ t{-amG-} ->
-       PrelBase.:
-           _@_ t{-amG-}
+f{-r1,x-} =
+    _/\_ tak6 ->
+       _letrec_ {
+         f_ak2  ::  tak6 -> [tak6] -> [tak6]
+         {-# L #-}
+         f_ak2 =
+             PrelBase.:{-55,w-}{i} _@_ tak6;
+       } in  f_ak2
+end Rec }