[project @ 1997-09-24 11:08:42 by simonm]

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

diff --git a/ghc/tests/deSugar/should_compile/ds030.stderr b/ghc/tests/deSugar/should_compile/ds030.stderr
index 1c144af..e69de29 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds030.stderr
+++ b/ghc/tests/deSugar/should_compile/ds030.stderr
@@ -1,41 +0,0 @@
-
-
-================================================================================
-Desugared:
-Rec {
-f{-r3e,x-}  ::  _forall_ [taBY] => [taBY] -> PrelBase.Int{-3g,W-}
-{-# L #-}
-f{-r3e,x-} =
-    _/\_ taBY ->
-       _letrec_ {
-         f_aBO  ::  [taBY] -> PrelBase.Int{-3g,W-}
-         {-# L #-}
-         f_aBO =
-             \ x_r3d  ::  [taBY]
-               {-# L #-}
-               x_r3d ->
-                 let {
-                   ds_dEM  ::  [taBY]
-                   {-# L #-}
-                   ds_dEM =
-                       x_r3d } in
-                 let {
-                   fail_dEO  ::  PrelBase.Int{-3g,W-}
-                   {-# L #-}
-                   fail_dEO =
-                       lit_aEC
-                 } in 
-                   case ds_dEM of {
-                     PrelBase.:{-55,w-}{i} ds_dEV ds_dEW -> fail_dEO;
-                     PrelBase.[]{-5i,w-}{i} -> lit_aEA;
-                   };
-       } in  f_aBO
-lit_aEA  ::  PrelBase.Int{-3g,W-}
-{-# L #-}
-lit_aEA =
-    PrelBase.I#{-5b,w-}{i} 3
-lit_aEC  ::  PrelBase.Int{-3g,W-}
-{-# L #-}
-lit_aEC =
-    PrelBase.I#{-5b,w-}{i} 4
-end Rec }