X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds030.stderr;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds030.stderr;h=0000000000000000000000000000000000000000;hb=29b46083beaa048af4b4a68e8f96909ac98a639f;hp=beecd0ff22bcd1e933c3f59679483eb312701274;hpb=3436a37c72644f82471a7d8c684d67438b86cc3a;p=ghc-hetmet.git diff --git a/ghc/compiler/tests/deSugar/ds030.stderr b/ghc/compiler/tests/deSugar/ds030.stderr deleted file mode 100644 index beecd0f..0000000 --- a/ghc/compiler/tests/deSugar/ds030.stderr +++ /dev/null @@ -1,54 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -{-# L #-} -d.Num_aHE = - PrelBase.$d3 -{-# L #-} -fromInt_aKm = - PrelBase.fromInt - _@_ PrelBase.Int d.Num_aHE -{-# L #-} -lit_aKx = - let { - {-# L #-} - ds_dKW = - PrelBase.I# - 3 - } in - fromInt_aKm - ds_dKW -{-# L #-} -fromInt_aKw = - fromInt_aKm -{-# L #-} -lit_aKt = - let { - {-# L #-} - ds_dLb = - PrelBase.I# - 4 - } in - fromInt_aKw - ds_dLb -{-# L #-} -f = _/\_ t{-aHm-} -> \ {-# L #-} - x_r3d -> - let { - {-# L #-} - ds_dLw = - x_r3d } in - let { - {-# L #-} - fail_dLy = - lit_aKt - } in - case ds_dLw of { - PrelBase.: ds_dLG ds_dLF -> - fail_dLy; - PrelBase.[] -> - lit_aKx; - } -end Rec }