From 6c39b170e81496fd0fb4e9d633a0c6ff1ec3c763 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 4 Aug 2016 10:00:37 -0400 Subject: [PATCH] Define toTermName over Commented nodes. --- src/DiffSummary.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index ccc0edff5..b5cf1ae91 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -73,6 +73,7 @@ toTermName source term = case unwrap term of S.Class identifier _ _ -> toTermName' identifier S.Method identifier _ _ -> toTermName' identifier Comment a -> toCategoryName a + S.Commented _ wrapped -> maybe "anonymous" toTermName' wrapped where toTermName' = toTermName source termNameFromChildren term cs = termNameFromRange (unionRangesFrom (range term) (range <$> cs)) termNameFromSource term = termNameFromRange (range term)