gogol-dns 0.3.0 → 0.4.0

raw patch · 7 files changed

+62/−51 lines, 7 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• gen/Network/Google/DNS.hs +6/−5
• gen/Network/Google/DNS/Types.hs +6/−5
• gen/Network/Google/DNS/Types/Product.hs +43/−32
• gen/Network/Google/DNS/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs +2/−4
• gen/Network/Google/Resource/DNS/ManagedZones/Patch.hs +2/−2
• gogol-dns.cabal +2/−2

@@ -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

@@ -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

@@ -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. --

@@ -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

@@ -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"]

@@ -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:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference> 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'

@@ -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