X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Fprinting%2Fshould_compile%2FPrint004.stderr;fp=ghc%2Ftests%2Fprinting%2Fshould_compile%2FPrint004.stderr;h=0000000000000000000000000000000000000000;hb=16acb4976514ab4b03c79d6845e3f0e98a1a33cf;hp=d5d45f6a61f0348e7c194d3c4d84741bfd6173c4;hpb=f2eadfd5dfb23cc611e2540f46180bca7d095f15;p=ghc-hetmet.git

diff --git a/ghc/tests/printing/should_compile/Print004.stderr b/ghc/tests/printing/should_compile/Print004.stderr
deleted file mode 100644
index d5d45f6..0000000
--- a/ghc/tests/printing/should_compile/Print004.stderr
+++ /dev/null
@@ -1,88 +0,0 @@
-
-==================== Typechecked ====================
-ExportOpaque.Junk11{-r3,l-} =
-    \ a{-ru2-} -> ExportOpaque.Junk11{-r3,l-} {__a a{-ru2-}}
-ExportOpaque.Junk2{-r5,l-} =
-    \ a{-ru2-} -> ExportOpaque.Junk2{-r5,l-} {__a a{-ru2-}}
-ExportOpaque.Con{-r9,l-} =
-    \ a{-ru6-} tpl_B1 -> ExportOpaque.Con{-r9,l-} {__a a{-ru6-} tpl_B1}
-AbsBinds
-[a{-aY7-}]
-[_dOrd{-aYo-}]
-[([a{-aY7-}],
-  ExportOpaque._fShowOpaqueType{-rXt,x-},
-  _dShow{-aXB-})]
-    _mshow{-aZt-} =
-	PrelBase._mshow{-rJ7,i-} (ExportOpaque.OpaqueType{-r7,x-} a{-aY7-})
-	    _dShow{-aYs-}
-    showsPrec{-aZs-} = showsPrec{-aY0-}
-    showsPrec{-aZu-} =
-	PrelBase.showsPrec{-rt1,i-}
-	    (ExportOpaque.FunnyInternalType{-r1,l-} a{-aY7-})
-	    _dShow{-aYv-}
-    _dShow{-aYs-} = _dShow{-aXB-}
-    _dShow{-aYv-} =
-	ExportOpaque._fShowFunnyInternalType{-rXl,x-} a{-aY7-} _dOrd{-aYx-}
-    _dOrd{-aYx-} = _dOrd{-aYo-}
-    AbsBinds [] [] [([], showList{-aXD-}, showList{-aXF-})]
-	showList{-aXF-} = PrelBase.showList__{-ru7,i-}
-			      (ExportOpaque.OpaqueType{-r7,x-} a{-aY7-}) showsPrec{-aZs-} PrelBase.I#{-67,w-} 0#
-    AbsBinds [] [] [([], show{-aXP-}, show{-aXR-})]
-	show{-aXR-} = _mshow{-aZt-}
-    AbsBinds [] [] [([], showsPrec{-aY0-}, showsPrec{-aY2-})]
-	showsPrec{-aY2-} a{-aY8-} (ExportOpaque.Con{-r9,l-} b1{-aYl-})
-			   = PrelBase.showParen{-rtv,i-} a{-aY8-} >={-aZv-} lit_aZw
-							 PrelBase..{-rtD,i-}
-							     [PrelBase.String{-rsZ,i-}, PrelBase.String{-rsZ,i-}, PrelBase.String{-rsZ,i-}] PrelBase.showString{-rtu,i-} "Con "
-																	    showsPrec{-aZu-} PrelBase.I#{-67,w-} 10#
-																			     b1{-aYl-}
-    _dShow{-aXB-} =
-	PrelBase._DShow{-rIw,i-}
-	    (ExportOpaque.OpaqueType{-r7,x-} a{-aY7-}) showList{-aXD-}
-						       show{-aXP-}
-						       showsPrec{-aY0-}
-AbsBinds
-[a{-aYP-}]
-[_dOrd{-aZe-}]
-[([a{-aYP-}],
-  ExportOpaque._fShowFunnyInternalType{-rXl,x-},
-  _dShow{-aYG-})]
-    _mshow{-aZx-} =
-	PrelBase._mshow{-rJ7,i-}
-	    (ExportOpaque.FunnyInternalType{-r1,l-} a{-aYP-})
-	    _dShow{-aZk-}
-    _mshowList{-aZy-} =
-	PrelBase._mshowList{-rJ6,i-}
-	    (ExportOpaque.FunnyInternalType{-r1,l-} a{-aYP-})
-	    _dShow{-aZi-}
-    _mshowsPrec{-aZz-} =
-	PrelBase._mshowsPrec{-rJ5,i-}
-	    (ExportOpaque.FunnyInternalType{-r1,l-} a{-aYP-})
-	    _dShow{-aZm-}
-    _dShow{-aZi-} = _dShow{-aYG-}
-    _dShow{-aZk-} = _dShow{-aYG-}
-    _dShow{-aZm-} = _dShow{-aYG-}
-    AbsBinds [] [] [([], showList{-aYI-}, showList{-aYK-})]
-	showList{-aYK-} = _mshowList{-aZy-}
-    AbsBinds [] [] [([], show{-aYU-}, show{-aYW-})]
-	show{-aYW-} = _mshow{-aZx-}
-    AbsBinds [] [] [([], showsPrec{-aZ5-}, showsPrec{-aZ7-})]
-	showsPrec{-aZ7-} = _mshowsPrec{-aZz-}
-    _dShow{-aYG-} =
-	PrelBase._DShow{-rIw,i-}
-	    (ExportOpaque.FunnyInternalType{-r1,l-} a{-aYP-}) showList{-aYI-}
-							      show{-aYU-}
-							      showsPrec{-aZ5-}
-lit_aZw = PrelBase.I#{-67,w-} 10#
->={-aZv-} = PrelBase.>={-01M,i-} PrelBase.Int{-3f,W-} _dOrd{-aZr-}
-_dOrd{-aZr-} = PrelBase._fOrdInt{-rJw,i-}
-
-
-ghc: module version changed to 1; reason: no old .hi file
-__export ExportOpaque OpaqueType;
-instance __forall [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} = _fShowFunnyInternalType;
-instance __forall [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} = _fShowOpaqueType;
-1 _fShowFunnyInternalType :: __forall [a] {PrelBase.Ord a} => {PrelBase.Show (FunnyInternalType a)} ;
-1 _fShowOpaqueType :: __forall [a] {PrelBase.Ord a} => {PrelBase.Show (OpaqueType a)} ;
-1 data FunnyInternalType a = Junk11 |  Junk2 ;
-1 data OpaqueType a = Con (FunnyInternalType a) ;