diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/EmailMigration.hs b/gen/Network/Google/EmailMigration.hs --- a/gen/Network/Google/EmailMigration.hs +++ b/gen/Network/Google/EmailMigration.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.EmailMigration --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,6 +20,9 @@ ( -- * Service Configuration emailMigrationService + + -- * OAuth Scopes + , emailMigrationScope -- * API Declaration , EmailMigrationAPI diff --git a/gen/Network/Google/EmailMigration/Types.hs b/gen/Network/Google/EmailMigration/Types.hs --- a/gen/Network/Google/EmailMigration/Types.hs +++ b/gen/Network/Google/EmailMigration/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.EmailMigration.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -40,12 +41,12 @@ import Network.Google.Prelude -- | Default request referring to version 'email_migration_v2' of the Email Migration API v2. This contains the host and root path used as a starting point for constructing service requests. -emailMigrationService :: Service +emailMigrationService :: ServiceConfig emailMigrationService = defaultService (ServiceId "admin:email_migration_v2") "www.googleapis.com" -- | Manage email messages of users on your domain -emailMigrationScope :: OAuthScope -emailMigrationScope = "https://www.googleapis.com/auth/email.migration"; +emailMigrationScope :: Proxy '["https://www.googleapis.com/auth/email.migration"] +emailMigrationScope = Proxy; diff --git a/gen/Network/Google/EmailMigration/Types/Product.hs b/gen/Network/Google/EmailMigration/Types/Product.hs --- a/gen/Network/Google/EmailMigration/Types/Product.hs +++ b/gen/Network/Google/EmailMigration/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.EmailMigration.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,7 +23,7 @@ -- | JSON template for MailItem object in Email Migration API. -- -- /See:/ 'mailItem' smart constructor. -data MailItem = MailItem +data MailItem = MailItem' { _miIsDeleted :: !(Maybe Bool) , _miIsDraft :: !(Maybe Bool) , _miIsStarred :: !(Maybe Bool) @@ -59,7 +59,7 @@ mailItem :: MailItem mailItem = - MailItem + MailItem' { _miIsDeleted = Nothing , _miIsDraft = Nothing , _miIsStarred = Nothing @@ -120,7 +120,7 @@ parseJSON = withObject "MailItem" (\ o -> - MailItem <$> + MailItem' <$> (o .:? "isDeleted") <*> (o .:? "isDraft") <*> (o .:? "isStarred") <*> (o .:? "kind" .!= "mailItem") @@ -131,7 +131,7 @@ <*> (o .:? "isSent")) instance ToJSON MailItem where - toJSON MailItem{..} + toJSON MailItem'{..} = object (catMaybes [("isDeleted" .=) <$> _miIsDeleted, diff --git a/gen/Network/Google/EmailMigration/Types/Sum.hs b/gen/Network/Google/EmailMigration/Types/Sum.hs --- a/gen/Network/Google/EmailMigration/Types/Sum.hs +++ b/gen/Network/Google/EmailMigration/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.EmailMigration.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs b/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs --- a/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs +++ b/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.EmailMigration.Mail.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,14 +58,13 @@ Capture "userKey" Text :> "mail" :> QueryParam "alt" AltJSON :> - QueryParam "uploadType" AltMedia :> - MultipartRelated '[JSON] MailItem RequestBody :> - Post '[JSON] () + QueryParam "uploadType" Multipart :> + MultipartRelated '[JSON] MailItem :> Post '[JSON] () -- | Insert Mail into Google\'s Gmail backends -- -- /See:/ 'mailInsert' smart constructor. -data MailInsert = MailInsert +data MailInsert = MailInsert' { _miPayload :: !MailItem , _miUserKey :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -82,7 +81,7 @@ -> Text -- ^ 'miUserKey' -> MailInsert mailInsert pMiPayload_ pMiUserKey_ = - MailInsert + MailInsert' { _miPayload = pMiPayload_ , _miUserKey = pMiUserKey_ } @@ -99,7 +98,9 @@ instance GoogleRequest MailInsert where type Rs MailInsert = () - requestClient MailInsert{..} + type Scopes MailInsert = + '["https://www.googleapis.com/auth/email.migration"] + requestClient MailInsert'{..} = go _miUserKey (Just AltJSON) _miPayload emailMigrationService where go :<|> _ @@ -108,8 +109,10 @@ instance GoogleRequest (MediaUpload MailInsert) where type Rs (MediaUpload MailInsert) = () - requestClient (MediaUpload MailInsert{..} body) - = go _miUserKey (Just AltJSON) (Just AltMedia) + type Scopes (MediaUpload MailInsert) = + Scopes MailInsert + requestClient (MediaUpload MailInsert'{..} body) + = go _miUserKey (Just AltJSON) (Just Multipart) _miPayload body emailMigrationService diff --git a/gogol-admin-emailmigration.cabal b/gogol-admin-emailmigration.cabal --- a/gogol-admin-emailmigration.cabal +++ b/gogol-admin-emailmigration.cabal @@ -1,5 +1,5 @@ name: gogol-admin-emailmigration -version: 0.0.1 +version: 0.1.0 synopsis: Google Email Migration API v2 SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 @@ -42,5 +42,5 @@ , Network.Google.EmailMigration.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5