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/AppState.hs b/gen/Network/Google/AppState.hs --- a/gen/Network/Google/AppState.hs +++ b/gen/Network/Google/AppState.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.AppState --- 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 appStateService + + -- * OAuth Scopes + , appStateScope -- * API Declaration , AppStateAPI diff --git a/gen/Network/Google/AppState/Types.hs b/gen/Network/Google/AppState/Types.hs --- a/gen/Network/Google/AppState/Types.hs +++ b/gen/Network/Google/AppState/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AppState.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 @@ -19,7 +20,7 @@ appStateService -- * OAuth Scopes - , appstateScope + , appStateScope -- * WriteResult , WriteResult @@ -55,11 +56,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v1' of the Google App State API. This contains the host and root path used as a starting point for constructing service requests. -appStateService :: Service +appStateService :: ServiceConfig appStateService = defaultService (ServiceId "appstate:v1") "www.googleapis.com" -- | View and manage your data for this application -appstateScope :: OAuthScope -appstateScope = "https://www.googleapis.com/auth/appstate"; +appStateScope :: Proxy '["https://www.googleapis.com/auth/appstate"] +appStateScope = Proxy; diff --git a/gen/Network/Google/AppState/Types/Product.hs b/gen/Network/Google/AppState/Types/Product.hs --- a/gen/Network/Google/AppState/Types/Product.hs +++ b/gen/Network/Google/AppState/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.AppState.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 @@ -- | This is a JSON template for an app state write result. -- -- /See:/ 'writeResult' smart constructor. -data WriteResult = WriteResult +data WriteResult = WriteResult' { _wrCurrentStateVersion :: !(Maybe Text) , _wrKind :: !Text , _wrStateKey :: !(Maybe (Textual Int32)) @@ -41,7 +41,7 @@ writeResult :: WriteResult writeResult = - WriteResult + WriteResult' { _wrCurrentStateVersion = Nothing , _wrKind = "appstate#writeResult" , _wrStateKey = Nothing @@ -68,13 +68,13 @@ parseJSON = withObject "WriteResult" (\ o -> - WriteResult <$> + WriteResult' <$> (o .:? "currentStateVersion") <*> (o .:? "kind" .!= "appstate#writeResult") <*> (o .:? "stateKey")) instance ToJSON WriteResult where - toJSON WriteResult{..} + toJSON WriteResult'{..} = object (catMaybes [("currentStateVersion" .=) <$> @@ -85,7 +85,7 @@ -- | This is a JSON template to convert a list-response for app state. -- -- /See:/ 'listResponse' smart constructor. -data ListResponse = ListResponse +data ListResponse = ListResponse' { _lrMaximumKeyCount :: !(Maybe (Textual Int32)) , _lrKind :: !Text , _lrItems :: !(Maybe [GetResponse]) @@ -103,7 +103,7 @@ listResponse :: ListResponse listResponse = - ListResponse + ListResponse' { _lrMaximumKeyCount = Nothing , _lrKind = "appstate#listResponse" , _lrItems = Nothing @@ -131,13 +131,13 @@ parseJSON = withObject "ListResponse" (\ o -> - ListResponse <$> + ListResponse' <$> (o .:? "maximumKeyCount") <*> (o .:? "kind" .!= "appstate#listResponse") <*> (o .:? "items" .!= mempty)) instance ToJSON ListResponse where - toJSON ListResponse{..} + toJSON ListResponse'{..} = object (catMaybes [("maximumKeyCount" .=) <$> _lrMaximumKeyCount, @@ -146,7 +146,7 @@ -- | This is a JSON template for an app state resource. -- -- /See:/ 'getResponse' smart constructor. -data GetResponse = GetResponse +data GetResponse = GetResponse' { _grCurrentStateVersion :: !(Maybe Text) , _grKind :: !Text , _grData :: !(Maybe Text) @@ -167,7 +167,7 @@ getResponse :: GetResponse getResponse = - GetResponse + GetResponse' { _grCurrentStateVersion = Nothing , _grKind = "appstate#getResponse" , _grData = Nothing @@ -199,14 +199,14 @@ parseJSON = withObject "GetResponse" (\ o -> - GetResponse <$> + GetResponse' <$> (o .:? "currentStateVersion") <*> (o .:? "kind" .!= "appstate#getResponse") <*> (o .:? "data") <*> (o .:? "stateKey")) instance ToJSON GetResponse where - toJSON GetResponse{..} + toJSON GetResponse'{..} = object (catMaybes [("currentStateVersion" .=) <$> @@ -217,7 +217,7 @@ -- | This is a JSON template for a requests which update app state -- -- /See:/ 'updateRequest' smart constructor. -data UpdateRequest = UpdateRequest +data UpdateRequest = UpdateRequest' { _urKind :: !Text , _urData :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -232,7 +232,7 @@ updateRequest :: UpdateRequest updateRequest = - UpdateRequest + UpdateRequest' { _urKind = "appstate#updateRequest" , _urData = Nothing } @@ -250,12 +250,12 @@ parseJSON = withObject "UpdateRequest" (\ o -> - UpdateRequest <$> + UpdateRequest' <$> (o .:? "kind" .!= "appstate#updateRequest") <*> (o .:? "data")) instance ToJSON UpdateRequest where - toJSON UpdateRequest{..} + toJSON UpdateRequest'{..} = object (catMaybes [Just ("kind" .= _urKind), ("data" .=) <$> _urData]) diff --git a/gen/Network/Google/AppState/Types/Sum.hs b/gen/Network/Google/AppState/Types/Sum.hs --- a/gen/Network/Google/AppState/Types/Sum.hs +++ b/gen/Network/Google/AppState/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AppState.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/AppState/States/Clear.hs b/gen/Network/Google/Resource/AppState/States/Clear.hs --- a/gen/Network/Google/Resource/AppState/States/Clear.hs +++ b/gen/Network/Google/Resource/AppState/States/Clear.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AppState.States.Clear --- 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,7 +58,7 @@ -- in a conflict error on version mismatch. -- -- /See:/ 'statesClear' smart constructor. -data StatesClear = StatesClear +data StatesClear = StatesClear' { _scStateKey :: !(Textual Int32) , _scCurrentDataVersion :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -74,7 +74,7 @@ :: Int32 -- ^ 'scStateKey' -> StatesClear statesClear pScStateKey_ = - StatesClear + StatesClear' { _scStateKey = _Coerce # pScStateKey_ , _scCurrentDataVersion = Nothing } @@ -94,7 +94,9 @@ instance GoogleRequest StatesClear where type Rs StatesClear = WriteResult - requestClient StatesClear{..} + type Scopes StatesClear = + '["https://www.googleapis.com/auth/appstate"] + requestClient StatesClear'{..} = go _scStateKey _scCurrentDataVersion (Just AltJSON) appStateService where go diff --git a/gen/Network/Google/Resource/AppState/States/Delete.hs b/gen/Network/Google/Resource/AppState/States/Delete.hs --- a/gen/Network/Google/Resource/AppState/States/Delete.hs +++ b/gen/Network/Google/Resource/AppState/States/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AppState.States.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- can result in data loss and data corruption. -- -- /See:/ 'statesDelete' smart constructor. -newtype StatesDelete = StatesDelete +newtype StatesDelete = StatesDelete' { _sdStateKey :: Textual Int32 } deriving (Eq,Show,Data,Typeable,Generic) @@ -72,7 +72,7 @@ :: Int32 -- ^ 'sdStateKey' -> StatesDelete statesDelete pSdStateKey_ = - StatesDelete + StatesDelete' { _sdStateKey = _Coerce # pSdStateKey_ } @@ -84,7 +84,9 @@ instance GoogleRequest StatesDelete where type Rs StatesDelete = () - requestClient StatesDelete{..} + type Scopes StatesDelete = + '["https://www.googleapis.com/auth/appstate"] + requestClient StatesDelete'{..} = go _sdStateKey (Just AltJSON) appStateService where go = buildClient (Proxy :: Proxy StatesDeleteResource) diff --git a/gen/Network/Google/Resource/AppState/States/Get.hs b/gen/Network/Google/Resource/AppState/States/Get.hs --- a/gen/Network/Google/Resource/AppState/States/Get.hs +++ b/gen/Network/Google/Resource/AppState/States/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AppState.States.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- exist on the server, an HTTP 404 will be returned. -- -- /See:/ 'statesGet' smart constructor. -newtype StatesGet = StatesGet +newtype StatesGet = StatesGet' { _sgStateKey :: Textual Int32 } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: Int32 -- ^ 'sgStateKey' -> StatesGet statesGet pSgStateKey_ = - StatesGet + StatesGet' { _sgStateKey = _Coerce # pSgStateKey_ } @@ -78,7 +78,9 @@ instance GoogleRequest StatesGet where type Rs StatesGet = GetResponse - requestClient StatesGet{..} + type Scopes StatesGet = + '["https://www.googleapis.com/auth/appstate"] + requestClient StatesGet'{..} = go _sgStateKey (Just AltJSON) appStateService where go = buildClient (Proxy :: Proxy StatesGetResource) diff --git a/gen/Network/Google/Resource/AppState/States/List.hs b/gen/Network/Google/Resource/AppState/States/List.hs --- a/gen/Network/Google/Resource/AppState/States/List.hs +++ b/gen/Network/Google/Resource/AppState/States/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AppState.States.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Lists all the states keys, and optionally the state data. -- -- /See:/ 'statesList' smart constructor. -newtype StatesList = StatesList +newtype StatesList = StatesList' { _slIncludeData :: Bool } deriving (Eq,Show,Data,Typeable,Generic) @@ -63,7 +63,7 @@ statesList :: StatesList statesList = - StatesList + StatesList' { _slIncludeData = False } @@ -75,7 +75,9 @@ instance GoogleRequest StatesList where type Rs StatesList = ListResponse - requestClient StatesList{..} + type Scopes StatesList = + '["https://www.googleapis.com/auth/appstate"] + requestClient StatesList'{..} = go (Just _slIncludeData) (Just AltJSON) appStateService where go diff --git a/gen/Network/Google/Resource/AppState/States/Update.hs b/gen/Network/Google/Resource/AppState/States/Update.hs --- a/gen/Network/Google/Resource/AppState/States/Update.hs +++ b/gen/Network/Google/Resource/AppState/States/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AppState.States.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- face of concurrent writes. Maximum per-key size is 128KB. -- -- /See:/ 'statesUpdate' smart constructor. -data StatesUpdate = StatesUpdate +data StatesUpdate = StatesUpdate' { _suCurrentStateVersion :: !(Maybe Text) , _suStateKey :: !(Textual Int32) , _suPayload :: !UpdateRequest @@ -80,7 +80,7 @@ -> UpdateRequest -- ^ 'suPayload' -> StatesUpdate statesUpdate pSuStateKey_ pSuPayload_ = - StatesUpdate + StatesUpdate' { _suCurrentStateVersion = Nothing , _suStateKey = _Coerce # pSuStateKey_ , _suPayload = pSuPayload_ @@ -108,7 +108,9 @@ instance GoogleRequest StatesUpdate where type Rs StatesUpdate = WriteResult - requestClient StatesUpdate{..} + type Scopes StatesUpdate = + '["https://www.googleapis.com/auth/appstate"] + requestClient StatesUpdate'{..} = go _suStateKey _suCurrentStateVersion (Just AltJSON) _suPayload diff --git a/gogol-appstate.cabal b/gogol-appstate.cabal --- a/gogol-appstate.cabal +++ b/gogol-appstate.cabal @@ -1,5 +1,5 @@ name: gogol-appstate -version: 0.0.1 +version: 0.1.0 synopsis: Google App State 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 @@ -46,5 +46,5 @@ , Network.Google.AppState.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5