{-# 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.SiteVerification.Types.Product where
import Network.Google.Prelude
import Network.Google.SiteVerification.Types.Sum
data SiteVerificationWebResourceGettokenRequestSite = SiteVerificationWebResourceGettokenRequestSite'
{ _svwrgrsIdentifier :: !(Maybe Text)
, _svwrgrsType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceGettokenRequestSite
:: SiteVerificationWebResourceGettokenRequestSite
siteVerificationWebResourceGettokenRequestSite =
SiteVerificationWebResourceGettokenRequestSite'
{ _svwrgrsIdentifier = Nothing
, _svwrgrsType = Nothing
}
svwrgrsIdentifier :: Lens' SiteVerificationWebResourceGettokenRequestSite (Maybe Text)
svwrgrsIdentifier
= lens _svwrgrsIdentifier
(\ s a -> s{_svwrgrsIdentifier = a})
svwrgrsType :: Lens' SiteVerificationWebResourceGettokenRequestSite (Maybe Text)
svwrgrsType
= lens _svwrgrsType (\ s a -> s{_svwrgrsType = a})
instance FromJSON
SiteVerificationWebResourceGettokenRequestSite where
parseJSON
= withObject
"SiteVerificationWebResourceGettokenRequestSite"
(\ o ->
SiteVerificationWebResourceGettokenRequestSite' <$>
(o .:? "identifier") <*> (o .:? "type"))
instance ToJSON
SiteVerificationWebResourceGettokenRequestSite where
toJSON
SiteVerificationWebResourceGettokenRequestSite'{..}
= object
(catMaybes
[("identifier" .=) <$> _svwrgrsIdentifier,
("type" .=) <$> _svwrgrsType])
data SiteVerificationWebResourceGettokenResponse = SiteVerificationWebResourceGettokenResponse'
{ _svwrgrToken :: !(Maybe Text)
, _svwrgrMethod :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceGettokenResponse
:: SiteVerificationWebResourceGettokenResponse
siteVerificationWebResourceGettokenResponse =
SiteVerificationWebResourceGettokenResponse'
{ _svwrgrToken = Nothing
, _svwrgrMethod = Nothing
}
svwrgrToken :: Lens' SiteVerificationWebResourceGettokenResponse (Maybe Text)
svwrgrToken
= lens _svwrgrToken (\ s a -> s{_svwrgrToken = a})
svwrgrMethod :: Lens' SiteVerificationWebResourceGettokenResponse (Maybe Text)
svwrgrMethod
= lens _svwrgrMethod (\ s a -> s{_svwrgrMethod = a})
instance FromJSON
SiteVerificationWebResourceGettokenResponse where
parseJSON
= withObject
"SiteVerificationWebResourceGettokenResponse"
(\ o ->
SiteVerificationWebResourceGettokenResponse' <$>
(o .:? "token") <*> (o .:? "method"))
instance ToJSON
SiteVerificationWebResourceGettokenResponse where
toJSON
SiteVerificationWebResourceGettokenResponse'{..}
= object
(catMaybes
[("token" .=) <$> _svwrgrToken,
("method" .=) <$> _svwrgrMethod])
newtype SiteVerificationWebResourceListResponse = SiteVerificationWebResourceListResponse'
{ _svwrlrItems :: Maybe [SiteVerificationWebResourceResource]
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceListResponse
:: SiteVerificationWebResourceListResponse
siteVerificationWebResourceListResponse =
SiteVerificationWebResourceListResponse'
{ _svwrlrItems = Nothing
}
svwrlrItems :: Lens' SiteVerificationWebResourceListResponse [SiteVerificationWebResourceResource]
svwrlrItems
= lens _svwrlrItems (\ s a -> s{_svwrlrItems = a}) .
_Default
. _Coerce
instance FromJSON
SiteVerificationWebResourceListResponse where
parseJSON
= withObject
"SiteVerificationWebResourceListResponse"
(\ o ->
SiteVerificationWebResourceListResponse' <$>
(o .:? "items" .!= mempty))
instance ToJSON
SiteVerificationWebResourceListResponse where
toJSON SiteVerificationWebResourceListResponse'{..}
= object (catMaybes [("items" .=) <$> _svwrlrItems])
data SiteVerificationWebResourceResourceSite = SiteVerificationWebResourceResourceSite'
{ _svwrrsIdentifier :: !(Maybe Text)
, _svwrrsType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceResourceSite
:: SiteVerificationWebResourceResourceSite
siteVerificationWebResourceResourceSite =
SiteVerificationWebResourceResourceSite'
{ _svwrrsIdentifier = Nothing
, _svwrrsType = Nothing
}
svwrrsIdentifier :: Lens' SiteVerificationWebResourceResourceSite (Maybe Text)
svwrrsIdentifier
= lens _svwrrsIdentifier
(\ s a -> s{_svwrrsIdentifier = a})
svwrrsType :: Lens' SiteVerificationWebResourceResourceSite (Maybe Text)
svwrrsType
= lens _svwrrsType (\ s a -> s{_svwrrsType = a})
instance FromJSON
SiteVerificationWebResourceResourceSite where
parseJSON
= withObject
"SiteVerificationWebResourceResourceSite"
(\ o ->
SiteVerificationWebResourceResourceSite' <$>
(o .:? "identifier") <*> (o .:? "type"))
instance ToJSON
SiteVerificationWebResourceResourceSite where
toJSON SiteVerificationWebResourceResourceSite'{..}
= object
(catMaybes
[("identifier" .=) <$> _svwrrsIdentifier,
("type" .=) <$> _svwrrsType])
data SiteVerificationWebResourceGettokenRequest = SiteVerificationWebResourceGettokenRequest'
{ _svwrgrSite :: !(Maybe SiteVerificationWebResourceGettokenRequestSite)
, _svwrgrVerificationMethod :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceGettokenRequest
:: SiteVerificationWebResourceGettokenRequest
siteVerificationWebResourceGettokenRequest =
SiteVerificationWebResourceGettokenRequest'
{ _svwrgrSite = Nothing
, _svwrgrVerificationMethod = Nothing
}
svwrgrSite :: Lens' SiteVerificationWebResourceGettokenRequest (Maybe SiteVerificationWebResourceGettokenRequestSite)
svwrgrSite
= lens _svwrgrSite (\ s a -> s{_svwrgrSite = a})
svwrgrVerificationMethod :: Lens' SiteVerificationWebResourceGettokenRequest (Maybe Text)
svwrgrVerificationMethod
= lens _svwrgrVerificationMethod
(\ s a -> s{_svwrgrVerificationMethod = a})
instance FromJSON
SiteVerificationWebResourceGettokenRequest where
parseJSON
= withObject
"SiteVerificationWebResourceGettokenRequest"
(\ o ->
SiteVerificationWebResourceGettokenRequest' <$>
(o .:? "site") <*> (o .:? "verificationMethod"))
instance ToJSON
SiteVerificationWebResourceGettokenRequest where
toJSON
SiteVerificationWebResourceGettokenRequest'{..}
= object
(catMaybes
[("site" .=) <$> _svwrgrSite,
("verificationMethod" .=) <$>
_svwrgrVerificationMethod])
data SiteVerificationWebResourceResource = SiteVerificationWebResourceResource'
{ _svwrrOwners :: !(Maybe [Text])
, _svwrrId :: !(Maybe Text)
, _svwrrSite :: !(Maybe SiteVerificationWebResourceResourceSite)
} deriving (Eq,Show,Data,Typeable,Generic)
siteVerificationWebResourceResource
:: SiteVerificationWebResourceResource
siteVerificationWebResourceResource =
SiteVerificationWebResourceResource'
{ _svwrrOwners = Nothing
, _svwrrId = Nothing
, _svwrrSite = Nothing
}
svwrrOwners :: Lens' SiteVerificationWebResourceResource [Text]
svwrrOwners
= lens _svwrrOwners (\ s a -> s{_svwrrOwners = a}) .
_Default
. _Coerce
svwrrId :: Lens' SiteVerificationWebResourceResource (Maybe Text)
svwrrId = lens _svwrrId (\ s a -> s{_svwrrId = a})
svwrrSite :: Lens' SiteVerificationWebResourceResource (Maybe SiteVerificationWebResourceResourceSite)
svwrrSite
= lens _svwrrSite (\ s a -> s{_svwrrSite = a})
instance FromJSON SiteVerificationWebResourceResource
where
parseJSON
= withObject "SiteVerificationWebResourceResource"
(\ o ->
SiteVerificationWebResourceResource' <$>
(o .:? "owners" .!= mempty) <*> (o .:? "id") <*>
(o .:? "site"))
instance ToJSON SiteVerificationWebResourceResource
where
toJSON SiteVerificationWebResourceResource'{..}
= object
(catMaybes
[("owners" .=) <$> _svwrrOwners,
("id" .=) <$> _svwrrId, ("site" .=) <$> _svwrrSite])