Fix bug in getDeclarationName

codedownio · Dec 1, 2023 · 5afd164 · 5afd164
1 parent 07bc492
commit 5afd164
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Aeson/TypeScript/Formatting.hs b/src/Data/Aeson/TypeScript/Formatting.hs
@@ -66,7 +66,7 @@ formatTSDeclarations' options allDeclarations =
         getDeclarationName :: TSDeclaration -> Maybe String
         getDeclarationName (TSInterfaceDeclaration {..}) = Just interfaceName
         getDeclarationName (TSTypeAlternatives {..}) = Just typeName
-        _ = Nothing
+        getDeclarationName _ = Nothing
 
     removeReferencesToRemovedNames :: [String] -> TSDeclaration -> TSDeclaration
     removeReferencesToRemovedNames removedNames decl@(TSTypeAlternatives {..}) = decl { alternativeTypes = [x | x <- alternativeTypes, not (x `L.elem` removedNames)] }