diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index 8c17994b9..bf0f54929 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -341,6 +341,7 @@ instance HasCategory Category where
     C.Module -> "module statement"
     C.Import -> "import statement"
     C.Export -> "export statement"
+    C.AnonymousFunction -> "anonymous function"
 
 instance HasField fields Category => HasCategory (SyntaxTerm leaf fields) where
   toCategoryName = toCategoryName . category . extract
diff --git a/src/Renderer/Split.hs b/src/Renderer/Split.hs
index ce4e745ff..88b464d89 100644
--- a/src/Renderer/Split.hs
+++ b/src/Renderer/Split.hs
@@ -83,7 +83,8 @@ styleName category = "category-" <> case category of
   C.Module -> "module_statement"
   C.Import -> "import_statement"
   C.Export -> "export_statement"
-  
+  C.AnonymousFunction -> "anonymous_function"
+
 -- | Pick the class name for a split patch.
 splitPatchToClassName :: SplitPatch a -> AttributeValue
 splitPatchToClassName patch = stringValue $ "patch " <> case patch of