From 27941fd2ce533555ea5b4e9b70cd840170ce716f Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Sat, 30 Jul 2016 14:26:01 -0400
Subject: [PATCH] Add Constructor to toTermName

---
 src/DiffSummary.hs | 1 +
 1 file changed, 1 insertion(+)

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