git.iko.soy/typeable/openapi3
on master help sign in
Fix jsonPrefix modifiers
0d0813aNickolay Kudasov
src/Data/Swagger/Internal/Utils.hs+3−3
compare with master
unifiedsplit
@@ -24,10 +24,10 @@ jsonPrefix prefix = defaultOptions
24 , sumEncoding = ObjectWithSingleField
24 , sumEncoding = ObjectWithSingleField
25 }
25 }
26 where
26 where
27− modifier = lowerFirstLetter . drop (length prefix)
27+ modifier = lowerFirstUppers . drop (length prefix)
28
28
29− lowerFirstLetter (c:s) = toLower c : s
29+ lowerFirstUppers s = map toLower x ++ y
30− lowerFirstLetter s = s
30+ where (x, y) = span isUpper s
31
31
32deriveToJSONDefault :: Name -> Q [Dec]
32deriveToJSONDefault :: Name -> Q [Dec]
33deriveToJSONDefault = deriveToJSON defaultOptions
33deriveToJSONDefault = deriveToJSON defaultOptions