Fix JSON derivation (account for _)
commit19b48e6c35e8e681e1ac4df94edb9e81f1469e03
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateMon 9 Nov 2015, 13:29 (11 years ago)
parent6de52f3
src/Data/Swagger/Internal/Utils.hs+1−1
@@ -32,7 +32,7 @@ hashMapReadKeys = hashMapTraverseKeys (maybe empty pure . readMaybe)
3232
3333jsonPrefix :: String -> Options
3434jsonPrefix prefix = defaultOptions
35− { fieldLabelModifier = modifier
35+ { fieldLabelModifier = modifier . drop 1
3636 , constructorTagModifier = modifier
3737 , sumEncoding = ObjectWithSingleField
3838 }