{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}

module Web.Twitter.Conduit.ParametersDeprecated where

import Data.Text (Text)
import Web.Twitter.Types
import Data.Time.Calendar (Day)
import Web.Twitter.Conduit.Request.Internal
import Control.Lens

count :: (Parameters p, HasParam "count" Integer (SupportParameters p)) => Lens' p (Maybe Integer)
count :: Lens' p (Maybe Integer)
count = ByteString -> Lens' p (Maybe Integer)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "count"

sinceId :: (Parameters p, HasParam "since_id" Integer (SupportParameters p)) => Lens' p (Maybe Integer)
sinceId :: Lens' p (Maybe Integer)
sinceId = ByteString -> Lens' p (Maybe Integer)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "since_id"

maxId :: (Parameters p, HasParam "max_id" Integer (SupportParameters p)) => Lens' p (Maybe Integer)
maxId :: Lens' p (Maybe Integer)
maxId = ByteString -> Lens' p (Maybe Integer)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "max_id"

page :: (Parameters p, HasParam "page" Integer (SupportParameters p)) => Lens' p (Maybe Integer)
page :: Lens' p (Maybe Integer)
page = ByteString -> Lens' p (Maybe Integer)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "page"

trimUser :: (Parameters p, HasParam "trim_user" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
trimUser :: Lens' p (Maybe Bool)
trimUser = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "trim_user"

excludeReplies :: (Parameters p, HasParam "exclude_replies" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
excludeReplies :: Lens' p (Maybe Bool)
excludeReplies = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "exclude_replies"

contributorDetails :: (Parameters p, HasParam "contributor_details" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
contributorDetails :: Lens' p (Maybe Bool)
contributorDetails = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "contributor_details"

includeEntities :: (Parameters p, HasParam "include_entities" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeEntities :: Lens' p (Maybe Bool)
includeEntities = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_entities"

includeEmail :: (Parameters p, HasParam "include_email" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeEmail :: Lens' p (Maybe Bool)
includeEmail = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_email"

includeUserEntities :: (Parameters p, HasParam "include_user_entities" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeUserEntities :: Lens' p (Maybe Bool)
includeUserEntities = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_user_entities"

includeRts :: (Parameters p, HasParam "include_rts" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeRts :: Lens' p (Maybe Bool)
includeRts = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_rts"

includeMyRetweet :: (Parameters p, HasParam "include_my_retweet" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeMyRetweet :: Lens' p (Maybe Bool)
includeMyRetweet = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_my_retweet"

includeExtAltText :: (Parameters p, HasParam "include_ext_alt_text" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
includeExtAltText :: Lens' p (Maybe Bool)
includeExtAltText = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "include_ext_alt_text"

inReplyToStatusId :: (Parameters p, HasParam "in_reply_to_status_id" Integer (SupportParameters p)) => Lens' p (Maybe Integer)
inReplyToStatusId :: Lens' p (Maybe Integer)
inReplyToStatusId = ByteString -> Lens' p (Maybe Integer)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "in_reply_to_status_id"

displayCoordinates :: (Parameters p, HasParam "display_coordinates" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
displayCoordinates :: Lens' p (Maybe Bool)
displayCoordinates = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "display_coordinates"

possiblySensitive :: (Parameters p, HasParam "possibly_sensitive" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
possiblySensitive :: Lens' p (Maybe Bool)
possiblySensitive = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "possibly_sensitive"

lang :: (Parameters p, HasParam "lang" Text (SupportParameters p)) => Lens' p (Maybe Text)
lang :: Lens' p (Maybe Text)
lang = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "lang"

language :: (Parameters p, HasParam "language" Text (SupportParameters p)) => Lens' p (Maybe Text)
language :: Lens' p (Maybe Text)
language = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "language"

locale :: (Parameters p, HasParam "locale" Text (SupportParameters p)) => Lens' p (Maybe Text)
locale :: Lens' p (Maybe Text)
locale = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "locale"

filterLevel :: (Parameters p, HasParam "filter_level" Text (SupportParameters p)) => Lens' p (Maybe Text)
filterLevel :: Lens' p (Maybe Text)
filterLevel = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "filter_level"

stallWarnings :: (Parameters p, HasParam "stall_warnings" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
stallWarnings :: Lens' p (Maybe Bool)
stallWarnings = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "stall_warnings"

replies :: (Parameters p, HasParam "replies" Text (SupportParameters p)) => Lens' p (Maybe Text)
replies :: Lens' p (Maybe Text)
replies = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "replies"

until :: (Parameters p, HasParam "until" Day (SupportParameters p)) => Lens' p (Maybe Day)
until :: Lens' p (Maybe Day)
until = ByteString -> Lens' p (Maybe Day)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "until"

skipStatus :: (Parameters p, HasParam "skip_status" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
skipStatus :: Lens' p (Maybe Bool)
skipStatus = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "skip_status"

follow :: (Parameters p, HasParam "follow" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
follow :: Lens' p (Maybe Bool)
follow = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "follow"

map :: (Parameters p, HasParam "map" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
map :: Lens' p (Maybe Bool)
map = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "map"

mediaIds :: (Parameters p, HasParam "media_ids" [Integer] (SupportParameters p)) => Lens' p (Maybe [Integer])
mediaIds :: Lens' p (Maybe [Integer])
mediaIds = ByteString -> Lens' p (Maybe [Integer])
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "media_ids"

description :: (Parameters p, HasParam "description" Text (SupportParameters p)) => Lens' p (Maybe Text)
description :: Lens' p (Maybe Text)
description = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "description"

name :: (Parameters p, HasParam "name" Text (SupportParameters p)) => Lens' p (Maybe Text)
name :: Lens' p (Maybe Text)
name = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "name"

profileLinkColor :: (Parameters p, HasParam "profile_link_color" Text (SupportParameters p)) => Lens' p (Maybe Text)
profileLinkColor :: Lens' p (Maybe Text)
profileLinkColor = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "profile_link_color"

location :: (Parameters p, HasParam "location" Text (SupportParameters p)) => Lens' p (Maybe Text)
location :: Lens' p (Maybe Text)
location = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "location"

url :: (Parameters p, HasParam "url" URIString (SupportParameters p)) => Lens' p (Maybe URIString)
url :: Lens' p (Maybe Text)
url = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "url"

fullText :: (Parameters p, HasParam "full_text" Bool (SupportParameters p)) => Lens' p (Maybe Bool)
fullText :: Lens' p (Maybe Bool)
fullText = ByteString -> Lens' p (Maybe Bool)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "full_text"

with :: (Parameters p, HasParam "with" Text (SupportParameters p)) => Lens' p (Maybe Text)
with :: Lens' p (Maybe Text)
with = ByteString -> Lens' p (Maybe Text)
forall p a.
(Parameters p, ParameterValue a) =>
ByteString -> Lens' p (Maybe a)
rawParam "with"