diff --git a/gen/Network/Google/DNS.hs b/gen/Network/Google/DNS.hs --- a/gen/Network/Google/DNS.hs +++ b/gen/Network/Google/DNS.hs @@ -110,11 +110,6 @@ -- ** ManagedZoneDNSSecConfigState , ManagedZoneDNSSecConfigState (..) - -- ** ManagedZonesDeleteResponse - , ManagedZonesDeleteResponse - , managedZonesDeleteResponse - , mzdrHeader - -- ** Project , Project , project @@ -240,10 +235,16 @@ , mzNameServerSet , mzName , mzId + , mzLabels , mzDNSName , mzDescription , mzDNSsecConfig , mzNameServers + + -- ** ManagedZoneLabels + , ManagedZoneLabels + , managedZoneLabels + , mzlAddtional -- ** Quota , Quota diff --git a/gen/Network/Google/DNS/Types.hs b/gen/Network/Google/DNS/Types.hs --- a/gen/Network/Google/DNS/Types.hs +++ b/gen/Network/Google/DNS/Types.hs @@ -56,11 +56,6 @@ -- * ManagedZoneDNSSecConfigState , ManagedZoneDNSSecConfigState (..) - -- * ManagedZonesDeleteResponse - , ManagedZonesDeleteResponse - , managedZonesDeleteResponse - , mzdrHeader - -- * Project , Project , project @@ -186,10 +181,16 @@ , mzNameServerSet , mzName , mzId + , mzLabels , mzDNSName , mzDescription , mzDNSsecConfig , mzNameServers + + -- * ManagedZoneLabels + , ManagedZoneLabels + , managedZoneLabels + , mzlAddtional -- * Quota , Quota diff --git a/gen/Network/Google/DNS/Types/Product.hs b/gen/Network/Google/DNS/Types/Product.hs --- a/gen/Network/Google/DNS/Types/Product.hs +++ b/gen/Network/Google/DNS/Types/Product.hs @@ -225,38 +225,6 @@ Just ("kind" .= _clrKind), ("header" .=) <$> _clrHeader]) --- --- /See:/ 'managedZonesDeleteResponse' smart constructor. -newtype ManagedZonesDeleteResponse = ManagedZonesDeleteResponse' - { _mzdrHeader :: Maybe ResponseHeader - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'ManagedZonesDeleteResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'mzdrHeader' -managedZonesDeleteResponse - :: ManagedZonesDeleteResponse -managedZonesDeleteResponse = - ManagedZonesDeleteResponse' - { _mzdrHeader = Nothing - } - -mzdrHeader :: Lens' ManagedZonesDeleteResponse (Maybe ResponseHeader) -mzdrHeader - = lens _mzdrHeader (\ s a -> s{_mzdrHeader = a}) - -instance FromJSON ManagedZonesDeleteResponse where - parseJSON - = withObject "ManagedZonesDeleteResponse" - (\ o -> - ManagedZonesDeleteResponse' <$> (o .:? "header")) - -instance ToJSON ManagedZonesDeleteResponse where - toJSON ManagedZonesDeleteResponse'{..} - = object (catMaybes [("header" .=) <$> _mzdrHeader]) - -- | A project resource. The project is a top level container for resources -- including Cloud DNS ManagedZones. Projects can be created only in the -- APIs console. @@ -1224,6 +1192,7 @@ , _mzNameServerSet :: !(Maybe Text) , _mzName :: !(Maybe Text) , _mzId :: !(Maybe (Textual Word64)) + , _mzLabels :: !(Maybe ManagedZoneLabels) , _mzDNSName :: !(Maybe Text) , _mzDescription :: !(Maybe Text) , _mzDNSsecConfig :: !(Maybe ManagedZoneDNSSecConfig) @@ -1244,6 +1213,8 @@ -- -- * 'mzId' -- +-- * 'mzLabels' +-- -- * 'mzDNSName' -- -- * 'mzDescription' @@ -1260,6 +1231,7 @@ , _mzNameServerSet = Nothing , _mzName = Nothing , _mzId = Nothing + , _mzLabels = Nothing , _mzDNSName = Nothing , _mzDescription = Nothing , _mzDNSsecConfig = Nothing @@ -1299,6 +1271,10 @@ = lens _mzId (\ s a -> s{_mzId = a}) . mapping _Coerce +-- | User labels. +mzLabels :: Lens' ManagedZone (Maybe ManagedZoneLabels) +mzLabels = lens _mzLabels (\ s a -> s{_mzLabels = a}) + -- | The DNS name of this managed zone, for instance \"example.com.\". mzDNSName :: Lens' ManagedZone (Maybe Text) mzDNSName @@ -1337,6 +1313,7 @@ <*> (o .:? "nameServerSet") <*> (o .:? "name") <*> (o .:? "id") + <*> (o .:? "labels") <*> (o .:? "dnsName") <*> (o .:? "description") <*> (o .:? "dnssecConfig") @@ -1350,10 +1327,44 @@ Just ("kind" .= _mzKind), ("nameServerSet" .=) <$> _mzNameServerSet, ("name" .=) <$> _mzName, ("id" .=) <$> _mzId, + ("labels" .=) <$> _mzLabels, ("dnsName" .=) <$> _mzDNSName, ("description" .=) <$> _mzDescription, ("dnssecConfig" .=) <$> _mzDNSsecConfig, ("nameServers" .=) <$> _mzNameServers]) + +-- | User labels. +-- +-- /See:/ 'managedZoneLabels' smart constructor. +newtype ManagedZoneLabels = ManagedZoneLabels' + { _mzlAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ManagedZoneLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mzlAddtional' +managedZoneLabels + :: HashMap Text Text -- ^ 'mzlAddtional' + -> ManagedZoneLabels +managedZoneLabels pMzlAddtional_ = + ManagedZoneLabels' + { _mzlAddtional = _Coerce # pMzlAddtional_ + } + +mzlAddtional :: Lens' ManagedZoneLabels (HashMap Text Text) +mzlAddtional + = lens _mzlAddtional (\ s a -> s{_mzlAddtional = a}) + . _Coerce + +instance FromJSON ManagedZoneLabels where + parseJSON + = withObject "ManagedZoneLabels" + (\ o -> ManagedZoneLabels' <$> (parseJSONObject o)) + +instance ToJSON ManagedZoneLabels where + toJSON = toJSON . _mzlAddtional -- | Limits associated with a Project. -- diff --git a/gen/Network/Google/DNS/Types/Sum.hs b/gen/Network/Google/DNS/Types/Sum.hs --- a/gen/Network/Google/DNS/Types/Sum.hs +++ b/gen/Network/Google/DNS/Types/Sum.hs @@ -16,7 +16,7 @@ -- module Network.Google.DNS.Types.Sum where -import Network.Google.Prelude +import Network.Google.Prelude hiding (Bytes) -- | String mnemonic specifying the DNSSEC algorithm of this key. data DNSKeySpecAlgorithm diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs @@ -51,8 +51,7 @@ "managedZones" :> Capture "managedZone" Text :> QueryParam "clientOperationId" Text :> - QueryParam "alt" AltJSON :> - Delete '[JSON] ManagedZonesDeleteResponse + QueryParam "alt" AltJSON :> Delete '[JSON] () -- | Delete a previously created ManagedZone. -- @@ -104,8 +103,7 @@ (\ s a -> s{_mzdClientOperationId = a}) instance GoogleRequest ManagedZonesDelete where - type Rs ManagedZonesDelete = - ManagedZonesDeleteResponse + type Rs ManagedZonesDelete = () type Scopes ManagedZonesDelete = '["https://www.googleapis.com/auth/cloud-platform", "https://www.googleapis.com/auth/ndev.clouddns.readwrite"] diff --git a/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs b/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs --- a/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs +++ b/gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs @@ -20,7 +20,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Update an existing ManagedZone. This method supports patch semantics. +-- Apply a partial update to an existing ManagedZone. -- -- /See:/ for @dns.managedZones.patch@. module Network.Google.Resource.DNS.ManagedZones.Patch @@ -56,7 +56,7 @@ ReqBody '[JSON] ManagedZone :> Patch '[JSON] Operation --- | Update an existing ManagedZone. This method supports patch semantics. +-- | Apply a partial update to an existing ManagedZone. -- -- /See:/ 'managedZonesPatch' smart constructor. data ManagedZonesPatch = ManagedZonesPatch' diff --git a/gogol-dns.cabal b/gogol-dns.cabal --- a/gogol-dns.cabal +++ b/gogol-dns.cabal @@ -1,5 +1,5 @@ name: gogol-dns -version: 0.3.0 +version: 0.4.0 synopsis: Google Cloud DNS SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -56,5 +56,5 @@ , Network.Google.DNS.Types.Sum build-depends: - gogol-core == 0.3.0.* + gogol-core == 0.4.0.* , base >= 4.7 && < 5