X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2FdeSugar%2Fshould_compile%2Fds011.stderr;h=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hb=a12162eaea28f3f617c578a7fa61f184050a4859;hp=86842d2b83c520346ea271b8350e15f67a84b475;hpb=432766dfa3217c7f5e18b0e7218111a2550b26a2;p=ghc-hetmet.git

diff --git a/ghc/tests/deSugar/should_compile/ds011.stderr b/ghc/tests/deSugar/should_compile/ds011.stderr
index 86842d2..e69de29 100644
--- 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 }