{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.FactCheckTools.Types.Product where
import Network.Google.FactCheckTools.Types.Sum
import Network.Google.Prelude
data GoogleFactcheckingFactchecktoolsV1alpha1Claim =
GoogleFactcheckingFactchecktoolsV1alpha1Claim'
{ _gffvcText :: !(Maybe Text)
, _gffvcClaimReview :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview])
, _gffvcClaimDate :: !(Maybe DateTime')
, _gffvcClaimant :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1Claim
:: GoogleFactcheckingFactchecktoolsV1alpha1Claim
googleFactcheckingFactchecktoolsV1alpha1Claim =
GoogleFactcheckingFactchecktoolsV1alpha1Claim'
{ _gffvcText = Nothing
, _gffvcClaimReview = Nothing
, _gffvcClaimDate = Nothing
, _gffvcClaimant = Nothing
}
gffvcText :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe Text)
gffvcText
= lens _gffvcText (\ s a -> s{_gffvcText = a})
gffvcClaimReview :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview]
gffvcClaimReview
= lens _gffvcClaimReview
(\ s a -> s{_gffvcClaimReview = a})
. _Default
. _Coerce
gffvcClaimDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe UTCTime)
gffvcClaimDate
= lens _gffvcClaimDate
(\ s a -> s{_gffvcClaimDate = a})
. mapping _DateTime
gffvcClaimant :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Claim (Maybe Text)
gffvcClaimant
= lens _gffvcClaimant
(\ s a -> s{_gffvcClaimant = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1Claim
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1Claim"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1Claim' <$>
(o .:? "text") <*> (o .:? "claimReview" .!= mempty)
<*> (o .:? "claimDate")
<*> (o .:? "claimant"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1Claim
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1Claim'{..}
= object
(catMaybes
[("text" .=) <$> _gffvcText,
("claimReview" .=) <$> _gffvcClaimReview,
("claimDate" .=) <$> _gffvcClaimDate,
("claimant" .=) <$> _gffvcClaimant])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating'
{ _gffvcrWorstRating :: !(Maybe (Textual Int32))
, _gffvcrRatingValue :: !(Maybe (Textual Int32))
, _gffvcrImageURL :: !(Maybe Text)
, _gffvcrBestRating :: !(Maybe (Textual Int32))
, _gffvcrTextualRating :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimRating
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating
googleFactcheckingFactchecktoolsV1alpha1ClaimRating =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating'
{ _gffvcrWorstRating = Nothing
, _gffvcrRatingValue = Nothing
, _gffvcrImageURL = Nothing
, _gffvcrBestRating = Nothing
, _gffvcrTextualRating = Nothing
}
gffvcrWorstRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32)
gffvcrWorstRating
= lens _gffvcrWorstRating
(\ s a -> s{_gffvcrWorstRating = a})
. mapping _Coerce
gffvcrRatingValue :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32)
gffvcrRatingValue
= lens _gffvcrRatingValue
(\ s a -> s{_gffvcrRatingValue = a})
. mapping _Coerce
gffvcrImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Text)
gffvcrImageURL
= lens _gffvcrImageURL
(\ s a -> s{_gffvcrImageURL = a})
gffvcrBestRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Int32)
gffvcrBestRating
= lens _gffvcrBestRating
(\ s a -> s{_gffvcrBestRating = a})
. mapping _Coerce
gffvcrTextualRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating (Maybe Text)
gffvcrTextualRating
= lens _gffvcrTextualRating
(\ s a -> s{_gffvcrTextualRating = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating'
<$>
(o .:? "worstRating") <*> (o .:? "ratingValue") <*>
(o .:? "imageUrl")
<*> (o .:? "bestRating")
<*> (o .:? "textualRating"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating'{..}
= object
(catMaybes
[("worstRating" .=) <$> _gffvcrWorstRating,
("ratingValue" .=) <$> _gffvcrRatingValue,
("imageUrl" .=) <$> _gffvcrImageURL,
("bestRating" .=) <$> _gffvcrBestRating,
("textualRating" .=) <$> _gffvcrTextualRating])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor'
{ _gffvcraImageURL :: !(Maybe Text)
, _gffvcraName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor'
{_gffvcraImageURL = Nothing, _gffvcraName = Nothing}
gffvcraImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (Maybe Text)
gffvcraImageURL
= lens _gffvcraImageURL
(\ s a -> s{_gffvcraImageURL = a})
gffvcraName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor (Maybe Text)
gffvcraName
= lens _gffvcraName (\ s a -> s{_gffvcraName = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor'
<$> (o .:? "imageUrl") <*> (o .:? "name"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor'{..}
= object
(catMaybes
[("imageUrl" .=) <$> _gffvcraImageURL,
("name" .=) <$> _gffvcraName])
data GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse =
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse'
{ _gffvfccsrNextPageToken :: !(Maybe Text)
, _gffvfccsrClaims :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1Claim])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
:: GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
googleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse =
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse'
{_gffvfccsrNextPageToken = Nothing, _gffvfccsrClaims = Nothing}
gffvfccsrNextPageToken :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse (Maybe Text)
gffvfccsrNextPageToken
= lens _gffvfccsrNextPageToken
(\ s a -> s{_gffvfccsrNextPageToken = a})
gffvfccsrClaims :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse [GoogleFactcheckingFactchecktoolsV1alpha1Claim]
gffvfccsrClaims
= lens _gffvfccsrClaims
(\ s a -> s{_gffvfccsrClaims = a})
. _Default
. _Coerce
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "claims" .!= mempty))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gffvfccsrNextPageToken,
("claims" .=) <$> _gffvfccsrClaims])
data GoogleProtobufEmpty =
GoogleProtobufEmpty'
deriving (Eq, Show, Data, Typeable, Generic)
googleProtobufEmpty
:: GoogleProtobufEmpty
googleProtobufEmpty = GoogleProtobufEmpty'
instance FromJSON GoogleProtobufEmpty where
parseJSON
= withObject "GoogleProtobufEmpty"
(\ o -> pure GoogleProtobufEmpty')
instance ToJSON GoogleProtobufEmpty where
toJSON = const emptyObject
data GoogleFactcheckingFactchecktoolsV1alpha1Publisher =
GoogleFactcheckingFactchecktoolsV1alpha1Publisher'
{ _gffvpName :: !(Maybe Text)
, _gffvpSite :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1Publisher
:: GoogleFactcheckingFactchecktoolsV1alpha1Publisher
googleFactcheckingFactchecktoolsV1alpha1Publisher =
GoogleFactcheckingFactchecktoolsV1alpha1Publisher'
{_gffvpName = Nothing, _gffvpSite = Nothing}
gffvpName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Publisher (Maybe Text)
gffvpName
= lens _gffvpName (\ s a -> s{_gffvpName = a})
gffvpSite :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1Publisher (Maybe Text)
gffvpSite
= lens _gffvpSite (\ s a -> s{_gffvpSite = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1Publisher
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1Publisher"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1Publisher'
<$> (o .:? "name") <*> (o .:? "site"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1Publisher
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1Publisher'{..}
= object
(catMaybes
[("name" .=) <$> _gffvpName,
("site" .=) <$> _gffvpSite])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor'
{ _gffvcaSameAs :: !(Maybe Text)
, _gffvcaImageURL :: !(Maybe Text)
, _gffvcaName :: !(Maybe Text)
, _gffvcaJobTitle :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor
googleFactcheckingFactchecktoolsV1alpha1ClaimAuthor =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor'
{ _gffvcaSameAs = Nothing
, _gffvcaImageURL = Nothing
, _gffvcaName = Nothing
, _gffvcaJobTitle = Nothing
}
gffvcaSameAs :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text)
gffvcaSameAs
= lens _gffvcaSameAs (\ s a -> s{_gffvcaSameAs = a})
gffvcaImageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text)
gffvcaImageURL
= lens _gffvcaImageURL
(\ s a -> s{_gffvcaImageURL = a})
gffvcaName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text)
gffvcaName
= lens _gffvcaName (\ s a -> s{_gffvcaName = a})
gffvcaJobTitle :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor (Maybe Text)
gffvcaJobTitle
= lens _gffvcaJobTitle
(\ s a -> s{_gffvcaJobTitle = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor'
<$>
(o .:? "sameAs") <*> (o .:? "imageUrl") <*>
(o .:? "name")
<*> (o .:? "jobTitle"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor'{..}
= object
(catMaybes
[("sameAs" .=) <$> _gffvcaSameAs,
("imageUrl" .=) <$> _gffvcaImageURL,
("name" .=) <$> _gffvcaName,
("jobTitle" .=) <$> _gffvcaJobTitle])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview'
{ _gLanguageCode :: !(Maybe Text)
, _gURL :: !(Maybe Text)
, _gTextualRating :: !(Maybe Text)
, _gTitle :: !(Maybe Text)
, _gPublisher :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1Publisher)
, _gReviewDate :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimReview
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview
googleFactcheckingFactchecktoolsV1alpha1ClaimReview =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview'
{ _gLanguageCode = Nothing
, _gURL = Nothing
, _gTextualRating = Nothing
, _gTitle = Nothing
, _gPublisher = Nothing
, _gReviewDate = Nothing
}
gLanguageCode :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text)
gLanguageCode
= lens _gLanguageCode
(\ s a -> s{_gLanguageCode = a})
gURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text)
gURL = lens _gURL (\ s a -> s{_gURL = a})
gTextualRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text)
gTextualRating
= lens _gTextualRating
(\ s a -> s{_gTextualRating = a})
gTitle :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe Text)
gTitle = lens _gTitle (\ s a -> s{_gTitle = a})
gPublisher :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe GoogleFactcheckingFactchecktoolsV1alpha1Publisher)
gPublisher
= lens _gPublisher (\ s a -> s{_gPublisher = a})
gReviewDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview (Maybe UTCTime)
gReviewDate
= lens _gReviewDate (\ s a -> s{_gReviewDate = a}) .
mapping _DateTime
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview'
<$>
(o .:? "languageCode") <*> (o .:? "url") <*>
(o .:? "textualRating")
<*> (o .:? "title")
<*> (o .:? "publisher")
<*> (o .:? "reviewDate"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReview'{..}
= object
(catMaybes
[("languageCode" .=) <$> _gLanguageCode,
("url" .=) <$> _gURL,
("textualRating" .=) <$> _gTextualRating,
("title" .=) <$> _gTitle,
("publisher" .=) <$> _gPublisher,
("reviewDate" .=) <$> _gReviewDate])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup'
{ _gffvcrmRating :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating)
, _gffvcrmClaimAuthor :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor)
, _gffvcrmURL :: !(Maybe Text)
, _gffvcrmClaimAppearances :: !(Maybe [Text])
, _gffvcrmClaimLocation :: !(Maybe Text)
, _gffvcrmClaimFirstAppearance :: !(Maybe Text)
, _gffvcrmClaimDate :: !(Maybe Text)
, _gffvcrmClaimReviewed :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup'
{ _gffvcrmRating = Nothing
, _gffvcrmClaimAuthor = Nothing
, _gffvcrmURL = Nothing
, _gffvcrmClaimAppearances = Nothing
, _gffvcrmClaimLocation = Nothing
, _gffvcrmClaimFirstAppearance = Nothing
, _gffvcrmClaimDate = Nothing
, _gffvcrmClaimReviewed = Nothing
}
gffvcrmRating :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimRating)
gffvcrmRating
= lens _gffvcrmRating
(\ s a -> s{_gffvcrmRating = a})
gffvcrmClaimAuthor :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimAuthor)
gffvcrmClaimAuthor
= lens _gffvcrmClaimAuthor
(\ s a -> s{_gffvcrmClaimAuthor = a})
gffvcrmURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text)
gffvcrmURL
= lens _gffvcrmURL (\ s a -> s{_gffvcrmURL = a})
gffvcrmClaimAppearances :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup [Text]
gffvcrmClaimAppearances
= lens _gffvcrmClaimAppearances
(\ s a -> s{_gffvcrmClaimAppearances = a})
. _Default
. _Coerce
gffvcrmClaimLocation :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text)
gffvcrmClaimLocation
= lens _gffvcrmClaimLocation
(\ s a -> s{_gffvcrmClaimLocation = a})
gffvcrmClaimFirstAppearance :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text)
gffvcrmClaimFirstAppearance
= lens _gffvcrmClaimFirstAppearance
(\ s a -> s{_gffvcrmClaimFirstAppearance = a})
gffvcrmClaimDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text)
gffvcrmClaimDate
= lens _gffvcrmClaimDate
(\ s a -> s{_gffvcrmClaimDate = a})
gffvcrmClaimReviewed :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup (Maybe Text)
gffvcrmClaimReviewed
= lens _gffvcrmClaimReviewed
(\ s a -> s{_gffvcrmClaimReviewed = a})
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup'
<$>
(o .:? "rating") <*> (o .:? "claimAuthor") <*>
(o .:? "url")
<*> (o .:? "claimAppearances" .!= mempty)
<*> (o .:? "claimLocation")
<*> (o .:? "claimFirstAppearance")
<*> (o .:? "claimDate")
<*> (o .:? "claimReviewed"))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup'{..}
= object
(catMaybes
[("rating" .=) <$> _gffvcrmRating,
("claimAuthor" .=) <$> _gffvcrmClaimAuthor,
("url" .=) <$> _gffvcrmURL,
("claimAppearances" .=) <$> _gffvcrmClaimAppearances,
("claimLocation" .=) <$> _gffvcrmClaimLocation,
("claimFirstAppearance" .=) <$>
_gffvcrmClaimFirstAppearance,
("claimDate" .=) <$> _gffvcrmClaimDate,
("claimReviewed" .=) <$> _gffvcrmClaimReviewed])
data GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage'
{ _gffvcrmpVersionId :: !(Maybe Text)
, _gffvcrmpPublishDate :: !(Maybe Text)
, _gffvcrmpName :: !(Maybe Text)
, _gffvcrmpClaimReviewAuthor :: !(Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor)
, _gffvcrmpPageURL :: !(Maybe Text)
, _gffvcrmpClaimReviewMarkups :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
googleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage'
{ _gffvcrmpVersionId = Nothing
, _gffvcrmpPublishDate = Nothing
, _gffvcrmpName = Nothing
, _gffvcrmpClaimReviewAuthor = Nothing
, _gffvcrmpPageURL = Nothing
, _gffvcrmpClaimReviewMarkups = Nothing
}
gffvcrmpVersionId :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text)
gffvcrmpVersionId
= lens _gffvcrmpVersionId
(\ s a -> s{_gffvcrmpVersionId = a})
gffvcrmpPublishDate :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text)
gffvcrmpPublishDate
= lens _gffvcrmpPublishDate
(\ s a -> s{_gffvcrmpPublishDate = a})
gffvcrmpName :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text)
gffvcrmpName
= lens _gffvcrmpName (\ s a -> s{_gffvcrmpName = a})
gffvcrmpClaimReviewAuthor :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewAuthor)
gffvcrmpClaimReviewAuthor
= lens _gffvcrmpClaimReviewAuthor
(\ s a -> s{_gffvcrmpClaimReviewAuthor = a})
gffvcrmpPageURL :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage (Maybe Text)
gffvcrmpPageURL
= lens _gffvcrmpPageURL
(\ s a -> s{_gffvcrmpPageURL = a})
gffvcrmpClaimReviewMarkups :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkup]
gffvcrmpClaimReviewMarkups
= lens _gffvcrmpClaimReviewMarkups
(\ s a -> s{_gffvcrmpClaimReviewMarkups = a})
. _Default
. _Coerce
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage'
<$>
(o .:? "versionId") <*> (o .:? "publishDate") <*>
(o .:? "name")
<*> (o .:? "claimReviewAuthor")
<*> (o .:? "pageUrl")
<*> (o .:? "claimReviewMarkups" .!= mempty))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage'{..}
= object
(catMaybes
[("versionId" .=) <$> _gffvcrmpVersionId,
("publishDate" .=) <$> _gffvcrmpPublishDate,
("name" .=) <$> _gffvcrmpName,
("claimReviewAuthor" .=) <$>
_gffvcrmpClaimReviewAuthor,
("pageUrl" .=) <$> _gffvcrmpPageURL,
("claimReviewMarkups" .=) <$>
_gffvcrmpClaimReviewMarkups])
data GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse =
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse'
{ _gffvlcrmprNextPageToken :: !(Maybe Text)
, _gffvlcrmprClaimReviewMarkupPages :: !(Maybe [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage])
}
deriving (Eq, Show, Data, Typeable, Generic)
googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
:: GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
googleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse =
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse'
{ _gffvlcrmprNextPageToken = Nothing
, _gffvlcrmprClaimReviewMarkupPages = Nothing
}
gffvlcrmprNextPageToken :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse (Maybe Text)
gffvlcrmprNextPageToken
= lens _gffvlcrmprNextPageToken
(\ s a -> s{_gffvlcrmprNextPageToken = a})
gffvlcrmprClaimReviewMarkupPages :: Lens' GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse [GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage]
gffvlcrmprClaimReviewMarkupPages
= lens _gffvlcrmprClaimReviewMarkupPages
(\ s a -> s{_gffvlcrmprClaimReviewMarkupPages = a})
. _Default
. _Coerce
instance FromJSON
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
where
parseJSON
= withObject
"GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse"
(\ o ->
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse'
<$>
(o .:? "nextPageToken") <*>
(o .:? "claimReviewMarkupPages" .!= mempty))
instance ToJSON
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
where
toJSON
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _gffvlcrmprNextPageToken,
("claimReviewMarkupPages" .=) <$>
_gffvlcrmprClaimReviewMarkupPages])