@@ -4,8 +4,8 @@ import Data.Aeson.TH
44import Data.Char
55import Language.Haskell.TH
66
7−jsonOptions :: String -> Options
8−jsonOptions prefix = defaultOptions
7+jsonPrefix :: String -> Options
8+jsonPrefix prefix = defaultOptions
99 { fieldLabelModifier = modifier
1010 , constructorTagModifier = modifier
1111 , sumEncoding = ObjectWithSingleField
@@ -17,4 +17,4 @@ jsonOptions prefix = defaultOptions
1717 lowerFirstLetter s = s
1818
1919deriveJSON' :: Name -> Q [Dec]
20−deriveJSON' name = deriveJSON (jsonOptions (nameBase name)) name
20+deriveJSON' name = deriveJSON (jsonPrefix (nameBase name)) name