fix: fix autodocodec field name casing

vst · Jun 5, 2024 · 3c7bb2c · 3c7bb2c
1 parent 3106048
commit 3c7bb2c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Postmap/Gencode/Haskell.hs b/src/Postmap/Gencode/Haskell.hs
@@ -285,7 +285,7 @@ mkRecordDataTypeField _config record@Record {..} field@Field {..} = do
 
 mkRecordJsonField :: Record -> Field -> T.Text
 mkRecordJsonField record field@Field {..} =
-  let jName = T.pack . Casing.snake . T.unpack $ unFieldName fieldName
+  let jName = T.toLower . T.pack . Casing.snake . T.unpack $ unFieldName fieldName
       fName = mkRecordFieldName record field
       fDesc = show $ fromMaybe "<undocumented>" fieldDescription
    in [i|Autodocodec.requiredField "#{jName}" #{fDesc} Autodocodec..= #{fName}|]