deriveJSONPrefixed :: Name -> Q [Dec]
deriveJSONPrefixed name =
  deriveJSON (jsonOptions . length . last . splitOn "." . show $ name) name
deriveJSONPrefixed :: Name -> Q [Dec]
deriveJSONPrefixed name =
  deriveJSON (jsonOptions . length . last . splitOn "." . show $ name) name
deriveJSONPrefixed name =
  deriveJSON (jsonOptions . length . last . splitOn "." . show $ name) name