[project @ 1997-09-24 11:08:42 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 86842d2..e69de29 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds011.stderr
+++ b/ghc/tests/deSugar/should_compile/ds011.stderr
@@ -1,72 +0,0 @@
-
-
-================================================================================
-Desugared:
-Rec {
-i{-r4,x-}  ::  _forall_ [take] => take
-{-# L #-}
-i{-r4,x-} =
-    _/\_ 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-} =
-    _/\_ 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-} =
-    _/\_ taku ->
-       _letrec_ {
-         g_ako  ::  taku
-         {-# L #-}
-         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-} =
-    _/\_ takD ->
-       _letrec_ {
-         f_akw  ::  takD
-         {-# L #-}
-         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 }