From eb3df7db6a16a1268283ad575b7cf27ef2e5c65d Mon Sep 17 00:00:00 2001 From: joshvera Date: Fri, 29 Jul 2016 18:39:08 -0400 Subject: [PATCH] MethodDefinition --- src/DiffSummary.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index 5854a9143..005c0781b 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -189,6 +189,7 @@ diffSummaries sources = cata $ \case (Free (infos :< S.While expr body)) -> annotateWithCategory infos <$> expr <> body (Free (infos :< S.DoWhile expr body)) -> annotateWithCategory infos <$> expr <> body (Free (infos :< S.Class identifier superclass definitions)) -> annotateWithCategory infos <$> identifier <> fromMaybe [] superclass <> join definitions + (Free (infos :< S.MethodDefinition identifier params definitions)) -> annotateWithCategory infos <$> identifier <> join params <> join definitions (Pure (Insert term)) -> [ DiffSummary (Insert $ termToDiffInfo afterSource term) [] ] (Pure (Delete term)) -> [ DiffSummary (Delete $ termToDiffInfo beforeSource term) [] ] (Pure (Replace t1 t2)) -> [ DiffSummary (Replace (termToDiffInfo beforeSource t1) (termToDiffInfo afterSource t2)) [] ]