{-# 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)
= 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"