X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds019.stderr;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds019.stderr;h=0000000000000000000000000000000000000000;hb=29b46083beaa048af4b4a68e8f96909ac98a639f;hp=e064f37674f57b72626fec59ed3354e16d01e424;hpb=3436a37c72644f82471a7d8c684d67438b86cc3a;p=ghc-hetmet.git diff --git a/ghc/compiler/tests/deSugar/ds019.stderr b/ghc/compiler/tests/deSugar/ds019.stderr deleted file mode 100644 index e064f37..0000000 --- a/ghc/compiler/tests/deSugar/ds019.stderr +++ /dev/null @@ -1,33 +0,0 @@ -ds019.hs:7: - Warning: Pattern match(es) completely overlapped - in the definition of function `f' -ds019.hs:8: - Warning: Pattern match(es) completely overlapped - in the definition of function `f' - - -================================================================================ -Desugared: -f{-r3G,x-} :: - _forall_ - [t{-aBG-} t{-aBJ-} t{-aBM-} t{-aBY-} t{-aC1-} t{-aC9-} t{-aC7-}] - => - (t{-aBG-}, t{-aBJ-}, t{-aBM-}) - -> (t{-aBY-}, t{-aC1-}) - -> t{-aC9-} - -> [t{-aC7-}] -{-# L #-} -f{-r3G,x-} = - _/\_ t{-aBG-} t{-aBJ-} t{-aBM-} t{-aBY-} t{-aC1-} t{-aC9-} t{-aC7-} -> \ ds_dGA :: - (t{-aBG-}, t{-aBJ-}, t{-aBM-}) - {-# L #-} - ds_dGA i_r3h :: - (t{-aBY-}, t{-aC1-}) - {-# L #-} - i_r3h o_r3j :: - t{-aC9-} - {-# L #-} - o_r3j -> - case ds_dGA of { PrelTup.(,,){-63,p-}{i} a_r3d b_r3e c_r3f -> - PrelBase.[]{-5i,p-}{i} - _@_ t{-aC7-};}