deriveJSON :: Name -> Q [Dec]
deriveJSON name = do
    let nameStr = nameBase name
        pre = decap nameStr
        opts = Aeson.defaultOptions
                 {Aeson.fieldLabelModifier = decap . dropPrefix pre}
    Aeson.deriveJSON opts name
deriveJSON :: Name -> Q [Dec]
deriveJSON name = do
    let nameStr = nameBase name
        pre = decap nameStr
        opts = Aeson.defaultOptions
                 {Aeson.fieldLabelModifier = decap . dropPrefix pre}
    Aeson.deriveJSON opts name
deriveJSON name = do
    let nameStr = nameBase name
        pre = decap nameStr
        opts = Aeson.defaultOptions
                 {Aeson.fieldLabelModifier = decap . dropPrefix pre}
    Aeson.deriveJSON opts name