@@ -24,10 +24,10 @@ jsonPrefix prefix = defaultOptions
2424 , sumEncoding = ObjectWithSingleField
2525 }
2626 where
27− modifier = lowerFirstLetter . drop (length prefix)
27+ modifier = lowerFirstUppers . drop (length prefix)
2828
29− lowerFirstLetter (c:s) = toLower c : s
30− lowerFirstLetter s = s
29+ lowerFirstUppers s = map toLower x ++ y
30+ where (x, y) = span isUpper s
3131
3232deriveToJSONDefault :: Name -> Q [Dec]
3333deriveToJSONDefault = deriveToJSON defaultOptions