diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index 1746c085e..10923e662 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -36,9 +36,13 @@ toTermName term = case unwrap term of
             _ -> "."
   Syntax.VarAssignment varId _ -> toTermName varId
   Syntax.VarDecl decl -> toTermName decl
-  -- TODO: We should remove Args from Syntax since I don't think we shouldn ever
+  -- TODO: We should remove Args from Syntax since I don't think we should ever
   -- evaluate Args as a single toTermName Text - joshvera
   Syntax.Args args -> mconcat $ toTermName <$> args
+  -- TODO: We should remove Case from Syntax since I don't think we should ever
+  -- evaluate Case as a single toTermName Text - joshvera
+  Syntax.Case expr _ -> toTermName expr
+  Syntax.Switch expr cases -> toTermName expr
 
 class HasCategory a where
   toCategoryName :: a -> Text