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

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

diff --git a/ghc/tests/deSugar/should_compile/ds011.stderr b/ghc/tests/deSugar/should_compile/ds011.stderr
index 6585333..86842d2 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds011.stderr
+++ b/ghc/tests/deSugar/should_compile/ds011.stderr
@@ -2,69 +2,71 @@
 
 ================================================================================
 Desugared:
-i{-r4,x-}  :: 
-    _forall_ [t{-amO-}] => t{-amO-}
+Rec {
+i{-r4,x-}  ::  _forall_ [take] => take
 {-# L #-}
 i{-r4,x-} =
-    _/\_ t{-amO-} ->
-       IOBase.error{-87,p-}
-           _@_ t{-amO-} _string_ "foo"
-h{-r5,x-}  :: 
-    _forall_ [t{-amW-}] => t{-amW-}
+    _/\_ take ->
+       _letrec_ {
+         i_ak8  ::  take
+         {-# L #-}
+         i_ak8 =
+             IOBase.error{-87,w-} _@_ take _string_ "foo";
+       } in  i_ak8
+h{-r5,x-}  ::  _forall_ [takm] => takm
 {-# L #-}
 h{-r5,x-} =
-    _/\_ t{-amW-} ->
-       let { ds_dpe  :: 
-                 [PrelBase.Char{-38,p-}]
-             {-# L #-}
-             ds_dpe =
-         let {
-           ds_dpp  :: 
-               PrelBase.Char{-38,p-}
-           {-# L #-}
-           ds_dpp =
-               PrelBase.C#{-54,p-}{i}
-                   {'"'} } in
-         let {
-           ds_dpt  :: 
-               [PrelBase.Char{-38,p-}]
-           {-# L #-}
-           ds_dpt =
-               PrelBase.[]{-5i,p-}{i}
-                   {_@_ PrelBase.Char{-38,p-}}
-         } in 
-           PrelBase.:{-55,p-}{i}
-               {_@_ PrelBase.Char{-38,p-} ds_dpp ds_dpt}
-       } in
-       IOBase.error{-87,p-}
-           _@_ t{-amW-} ds_dpe
-g{-r6,x-}  :: 
-    _forall_ [t{-an4-}] => t{-an4-}
+    _/\_ takm ->
+       _letrec_ {
+         h_akg  ::  takm
+         {-# L #-}
+         h_akg =
+             let { ds_dn6  ::  [PrelBase.Char{-38,W-}]
+                   {-# L #-}
+                   ds_dn6 =
+               let {
+                 ds_dnh  ::  PrelBase.Char{-38,W-}
+                 {-# L #-}
+                 ds_dnh =
+                     PrelBase.C#{-54,w-}{i} {'"'} } in
+               let {
+                 ds_dnl  ::  [PrelBase.Char{-38,W-}]
+                 {-# L #-}
+                 ds_dnl =
+                     PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}}
+               } in 
+                 PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_dnh ds_dnl}
+             } in
+             IOBase.error{-87,w-} _@_ takm ds_dn6;
+       } in  h_akg
+g{-r6,x-}  ::  _forall_ [taku] => taku
 {-# L #-}
 g{-r6,x-} =
-    _/\_ t{-an4-} ->
-       let {
-         ds_dpW  :: 
-             [PrelBase.Char{-38,p-}]
+    _/\_ taku ->
+       _letrec_ {
+         g_ako  ::  taku
          {-# L #-}
-         ds_dpW =
-             PrelBase.[]{-5i,p-}{i}
-                 {_@_ PrelBase.Char{-38,p-}}
-       } in 
-         IOBase.error{-87,p-}
-             _@_ t{-an4-} ds_dpW
-f{-r7,x-}  :: 
-    _forall_ [t{-and-}] => t{-and-}
+         g_ako =
+             let {
+               ds_dnO  ::  [PrelBase.Char{-38,W-}]
+               {-# L #-}
+               ds_dnO =
+                   PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}}
+             } in  IOBase.error{-87,w-} _@_ taku ds_dnO;
+       } in  g_ako
+f{-r7,x-}  ::  _forall_ [takD] => takD
 {-# L #-}
 f{-r7,x-} =
-    _/\_ t{-and-} ->
-       let {
-         ds_dqm  :: 
-             [PrelBase.Char{-38,p-}]
+    _/\_ takD ->
+       _letrec_ {
+         f_akw  ::  takD
          {-# L #-}
-         ds_dqm =
-             PrelBase.[]{-5i,p-}{i}
-                 _@_ PrelBase.Char{-38,p-}
-       } in 
-         IOBase.error{-87,p-}
-             _@_ t{-and-} ds_dqm
+         f_akw =
+             let {
+               ds_doe  ::  [PrelBase.Char{-38,W-}]
+               {-# L #-}
+               ds_doe =
+                   PrelBase.[]{-5i,w-}{i} _@_ PrelBase.Char{-38,W-}
+             } in  IOBase.error{-87,w-} _@_ takD ds_doe;
+       } in  f_akw
+end Rec }