git.iko.soy/typeable/openapi3
on master help sign in
Fix JSON derivation (account for _)
19b48e6Nickolay Kudasov
src/Data/Swagger/Internal/Utils.hs+1−1
compare with master
unifiedsplit
@@ -32,7 +32,7 @@ hashMapReadKeys = hashMapTraverseKeys (maybe empty pure . readMaybe)
32
32
33jsonPrefix :: String -> Options
33jsonPrefix :: String -> Options
34jsonPrefix prefix = defaultOptions
34jsonPrefix prefix = defaultOptions
35− { fieldLabelModifier = modifier
35+ { fieldLabelModifier = modifier . drop 1
36 , constructorTagModifier = modifier
36 , constructorTagModifier = modifier
37 , sumEncoding = ObjectWithSingleField
37 , sumEncoding = ObjectWithSingleField
38 }
38 }