{-# 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.AcceleratedMobilePageURL.Types.Product where
import Network.Google.AcceleratedMobilePageURL.Types.Sum
import Network.Google.Prelude
data AmpURLError = AmpURLError'
{ _aueOriginalURL :: !(Maybe Text)
, _aueErrorCode :: !(Maybe AmpURLErrorErrorCode)
, _aueErrorMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ampURLError
:: AmpURLError
ampURLError =
AmpURLError'
{ _aueOriginalURL = Nothing
, _aueErrorCode = Nothing
, _aueErrorMessage = Nothing
}
aueOriginalURL :: Lens' AmpURLError (Maybe Text)
aueOriginalURL
= lens _aueOriginalURL
(\ s a -> s{_aueOriginalURL = a})
aueErrorCode :: Lens' AmpURLError (Maybe AmpURLErrorErrorCode)
aueErrorCode
= lens _aueErrorCode (\ s a -> s{_aueErrorCode = a})
aueErrorMessage :: Lens' AmpURLError (Maybe Text)
aueErrorMessage
= lens _aueErrorMessage
(\ s a -> s{_aueErrorMessage = a})
instance FromJSON AmpURLError where
parseJSON
= withObject "AmpURLError"
(\ o ->
AmpURLError' <$>
(o .:? "originalUrl") <*> (o .:? "errorCode") <*>
(o .:? "errorMessage"))
instance ToJSON AmpURLError where
toJSON AmpURLError'{..}
= object
(catMaybes
[("originalUrl" .=) <$> _aueOriginalURL,
("errorCode" .=) <$> _aueErrorCode,
("errorMessage" .=) <$> _aueErrorMessage])
data BatchGetAmpURLsResponse = BatchGetAmpURLsResponse'
{ _bgaurAmpURLs :: !(Maybe [AmpURL])
, _bgaurURLErrors :: !(Maybe [AmpURLError])
} deriving (Eq,Show,Data,Typeable,Generic)
batchGetAmpURLsResponse
:: BatchGetAmpURLsResponse
batchGetAmpURLsResponse =
BatchGetAmpURLsResponse'
{ _bgaurAmpURLs = Nothing
, _bgaurURLErrors = Nothing
}
bgaurAmpURLs :: Lens' BatchGetAmpURLsResponse [AmpURL]
bgaurAmpURLs
= lens _bgaurAmpURLs (\ s a -> s{_bgaurAmpURLs = a})
. _Default
. _Coerce
bgaurURLErrors :: Lens' BatchGetAmpURLsResponse [AmpURLError]
bgaurURLErrors
= lens _bgaurURLErrors
(\ s a -> s{_bgaurURLErrors = a})
. _Default
. _Coerce
instance FromJSON BatchGetAmpURLsResponse where
parseJSON
= withObject "BatchGetAmpURLsResponse"
(\ o ->
BatchGetAmpURLsResponse' <$>
(o .:? "ampUrls" .!= mempty) <*>
(o .:? "urlErrors" .!= mempty))
instance ToJSON BatchGetAmpURLsResponse where
toJSON BatchGetAmpURLsResponse'{..}
= object
(catMaybes
[("ampUrls" .=) <$> _bgaurAmpURLs,
("urlErrors" .=) <$> _bgaurURLErrors])
data BatchGetAmpURLsRequest = BatchGetAmpURLsRequest'
{ _bgaurURLs :: !(Maybe [Text])
, _bgaurLookupStrategy :: !(Maybe BatchGetAmpURLsRequestLookupStrategy)
} deriving (Eq,Show,Data,Typeable,Generic)
batchGetAmpURLsRequest
:: BatchGetAmpURLsRequest
batchGetAmpURLsRequest =
BatchGetAmpURLsRequest'
{ _bgaurURLs = Nothing
, _bgaurLookupStrategy = Nothing
}
bgaurURLs :: Lens' BatchGetAmpURLsRequest [Text]
bgaurURLs
= lens _bgaurURLs (\ s a -> s{_bgaurURLs = a}) .
_Default
. _Coerce
bgaurLookupStrategy :: Lens' BatchGetAmpURLsRequest (Maybe BatchGetAmpURLsRequestLookupStrategy)
bgaurLookupStrategy
= lens _bgaurLookupStrategy
(\ s a -> s{_bgaurLookupStrategy = a})
instance FromJSON BatchGetAmpURLsRequest where
parseJSON
= withObject "BatchGetAmpURLsRequest"
(\ o ->
BatchGetAmpURLsRequest' <$>
(o .:? "urls" .!= mempty) <*>
(o .:? "lookupStrategy"))
instance ToJSON BatchGetAmpURLsRequest where
toJSON BatchGetAmpURLsRequest'{..}
= object
(catMaybes
[("urls" .=) <$> _bgaurURLs,
("lookupStrategy" .=) <$> _bgaurLookupStrategy])
data AmpURL = AmpURL'
{ _auOriginalURL :: !(Maybe Text)
, _auAmpURL :: !(Maybe Text)
, _auCdnAmpURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
ampURL
:: AmpURL
ampURL =
AmpURL'
{ _auOriginalURL = Nothing
, _auAmpURL = Nothing
, _auCdnAmpURL = Nothing
}
auOriginalURL :: Lens' AmpURL (Maybe Text)
auOriginalURL
= lens _auOriginalURL
(\ s a -> s{_auOriginalURL = a})
auAmpURL :: Lens' AmpURL (Maybe Text)
auAmpURL = lens _auAmpURL (\ s a -> s{_auAmpURL = a})
auCdnAmpURL :: Lens' AmpURL (Maybe Text)
auCdnAmpURL
= lens _auCdnAmpURL (\ s a -> s{_auCdnAmpURL = a})
instance FromJSON AmpURL where
parseJSON
= withObject "AmpURL"
(\ o ->
AmpURL' <$>
(o .:? "originalUrl") <*> (o .:? "ampUrl") <*>
(o .:? "cdnAmpUrl"))
instance ToJSON AmpURL where
toJSON AmpURL'{..}
= object
(catMaybes
[("originalUrl" .=) <$> _auOriginalURL,
("ampUrl" .=) <$> _auAmpURL,
("cdnAmpUrl" .=) <$> _auCdnAmpURL])