add missing cases

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

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