From b74a2a6f795145b79a9629043c4fb8ca215d4053 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Fri, 29 Jul 2016 16:32:52 -0400
Subject: [PATCH] Add Class to toTermName

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

diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index dc4da3aa8..c49f71872 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.Class identifier _ _ -> toTermName' identifier
   Comment a -> toCategoryName a
   where toTermName' = toTermName source