diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index dc4da3aa8..bc420cbe9 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -68,6 +68,7 @@ toTermName source term = case unwrap term of
           forClauseRanges = characterRange . extract <$> exprs
   S.While expr _ -> toTermName' expr
   S.DoWhile _ expr -> toTermName' expr
+  S.Constructor expr -> toTermName' expr
   Comment a -> toCategoryName a
   where toTermName' = toTermName source