fix codedownio#44: apply interfaceNameModifier to whole interface nam…

…e, not just tail
VitalBio · Mar 22, 2024 · ca6bc15 · ca6bc15
1 parent 1ea2172
commit ca6bc15
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
@@ -57,7 +57,7 @@ formatTSDeclaration (FormattingOptions {..}) (TSInterfaceDeclaration interfaceNa
 #{ls}
 }|] where
       ls = T.intercalate "\n" $ [indentTo numIndentSpaces (T.pack (formatTSField member <> ";")) | member <- members]
-      modifiedInterfaceName = (\(li, name) -> li <> interfaceNameModifier name) . splitAt 1 $ interfaceName
+      modifiedInterfaceName = interfaceNameModifier interfaceName
 
       formatTSField :: TSField -> String
       formatTSField (TSField optional name typ maybeDoc') = makeDocPrefix maybeDoc' <> [i|#{name}#{if optional then ("?" :: String) else ""}: #{typ}|]