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/LatencyTest.hs b/gen/Network/Google/LatencyTest.hs --- a/gen/Network/Google/LatencyTest.hs +++ b/gen/Network/Google/LatencyTest.hs @@ -7,19 +7,22 @@ -- | -- Module : Network.Google.LatencyTest --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- A Test API to report latency data. +-- Reports latency data. -- -- /See:/ < Google Cloud Network Performance Monitoring API Reference> module Network.Google.LatencyTest ( -- * Service Configuration latencyTestService + + -- * OAuth Scopes + , monitoringReadOnlyScope -- * API Declaration , LatencyTestAPI diff --git a/gen/Network/Google/LatencyTest/Types.hs b/gen/Network/Google/LatencyTest/Types.hs --- a/gen/Network/Google/LatencyTest/Types.hs +++ b/gen/Network/Google/LatencyTest/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.LatencyTest.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 @@ latencyTestService -- * OAuth Scopes - , monitoringReadonlyScope + , monitoringReadOnlyScope -- * IntValue , IntValue @@ -68,11 +69,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v2' of the Google Cloud Network Performance Monitoring API. This contains the host and root path used as a starting point for constructing service requests. -latencyTestService :: Service +latencyTestService :: ServiceConfig latencyTestService = defaultService (ServiceId "cloudlatencytest:v2") "cloudlatencytest-pa.googleapis.com" -- | View monitoring data for all of your Google Cloud and API projects -monitoringReadonlyScope :: OAuthScope -monitoringReadonlyScope = "https://www.googleapis.com/auth/monitoring.readonly"; +monitoringReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/monitoring.readonly"] +monitoringReadOnlyScope = Proxy; diff --git a/gen/Network/Google/LatencyTest/Types/Product.hs b/gen/Network/Google/LatencyTest/Types/Product.hs --- a/gen/Network/Google/LatencyTest/Types/Product.hs +++ b/gen/Network/Google/LatencyTest/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.LatencyTest.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 @@ -22,7 +22,7 @@ -- -- /See:/ 'intValue' smart constructor. -data IntValue = IntValue +data IntValue = IntValue' { _ivValue :: !(Maybe (Textual Int64)) , _ivLabel :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -37,7 +37,7 @@ intValue :: IntValue intValue = - IntValue + IntValue' { _ivValue = Nothing , _ivLabel = Nothing } @@ -54,10 +54,10 @@ parseJSON = withObject "IntValue" (\ o -> - IntValue <$> (o .:? "value") <*> (o .:? "label")) + IntValue' <$> (o .:? "value") <*> (o .:? "label")) instance ToJSON IntValue where - toJSON IntValue{..} + toJSON IntValue'{..} = object (catMaybes [("value" .=) <$> _ivValue, @@ -65,7 +65,7 @@ -- -- /See:/ 'doubleValue' smart constructor. -data DoubleValue = DoubleValue +data DoubleValue = DoubleValue' { _dvValue :: !(Maybe (Textual Double)) , _dvLabel :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -80,7 +80,7 @@ doubleValue :: DoubleValue doubleValue = - DoubleValue + DoubleValue' { _dvValue = Nothing , _dvLabel = Nothing } @@ -97,10 +97,10 @@ parseJSON = withObject "DoubleValue" (\ o -> - DoubleValue <$> (o .:? "value") <*> (o .:? "label")) + DoubleValue' <$> (o .:? "value") <*> (o .:? "label")) instance ToJSON DoubleValue where - toJSON DoubleValue{..} + toJSON DoubleValue'{..} = object (catMaybes [("value" .=) <$> _dvValue, @@ -108,7 +108,7 @@ -- -- /See:/ 'stringValue' smart constructor. -data StringValue = StringValue +data StringValue = StringValue' { _svValue :: !(Maybe Text) , _svLabel :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -123,7 +123,7 @@ stringValue :: StringValue stringValue = - StringValue + StringValue' { _svValue = Nothing , _svLabel = Nothing } @@ -138,10 +138,10 @@ parseJSON = withObject "StringValue" (\ o -> - StringValue <$> (o .:? "value") <*> (o .:? "label")) + StringValue' <$> (o .:? "value") <*> (o .:? "label")) instance ToJSON StringValue where - toJSON StringValue{..} + toJSON StringValue'{..} = object (catMaybes [("value" .=) <$> _svValue, @@ -149,7 +149,7 @@ -- -- /See:/ 'aggregatedStatsReply' smart constructor. -newtype AggregatedStatsReply = AggregatedStatsReply +newtype AggregatedStatsReply = AggregatedStatsReply' { _asrTestValue :: Maybe Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -161,7 +161,7 @@ aggregatedStatsReply :: AggregatedStatsReply aggregatedStatsReply = - AggregatedStatsReply + AggregatedStatsReply' { _asrTestValue = Nothing } @@ -172,16 +172,17 @@ instance FromJSON AggregatedStatsReply where parseJSON = withObject "AggregatedStatsReply" - (\ o -> AggregatedStatsReply <$> (o .:? "testValue")) + (\ o -> + AggregatedStatsReply' <$> (o .:? "testValue")) instance ToJSON AggregatedStatsReply where - toJSON AggregatedStatsReply{..} + toJSON AggregatedStatsReply'{..} = object (catMaybes [("testValue" .=) <$> _asrTestValue]) -- -- /See:/ 'stats' smart constructor. -data Stats = Stats +data Stats = Stats' { _sTime :: !(Maybe (Textual Double)) , _sDoubleValues :: !(Maybe [DoubleValue]) , _sStringValues :: !(Maybe [StringValue]) @@ -202,7 +203,7 @@ stats :: Stats stats = - Stats + Stats' { _sTime = Nothing , _sDoubleValues = Nothing , _sStringValues = Nothing @@ -238,13 +239,13 @@ parseJSON = withObject "Stats" (\ o -> - Stats <$> + Stats' <$> (o .:? "time") <*> (o .:? "doubleValues" .!= mempty) <*> (o .:? "stringValues" .!= mempty) <*> (o .:? "intValues" .!= mempty)) instance ToJSON Stats where - toJSON Stats{..} + toJSON Stats'{..} = object (catMaybes [("time" .=) <$> _sTime, @@ -254,7 +255,7 @@ -- -- /See:/ 'aggregatedStats' smart constructor. -newtype AggregatedStats = AggregatedStats +newtype AggregatedStats = AggregatedStats' { _asStats :: Maybe [Stats] } deriving (Eq,Show,Data,Typeable,Generic) @@ -266,7 +267,7 @@ aggregatedStats :: AggregatedStats aggregatedStats = - AggregatedStats + AggregatedStats' { _asStats = Nothing } @@ -279,15 +280,15 @@ parseJSON = withObject "AggregatedStats" (\ o -> - AggregatedStats <$> (o .:? "stats" .!= mempty)) + AggregatedStats' <$> (o .:? "stats" .!= mempty)) instance ToJSON AggregatedStats where - toJSON AggregatedStats{..} + toJSON AggregatedStats'{..} = object (catMaybes [("stats" .=) <$> _asStats]) -- -- /See:/ 'statsReply' smart constructor. -newtype StatsReply = StatsReply +newtype StatsReply = StatsReply' { _srTestValue :: Maybe Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -299,7 +300,7 @@ statsReply :: StatsReply statsReply = - StatsReply + StatsReply' { _srTestValue = Nothing } @@ -310,9 +311,9 @@ instance FromJSON StatsReply where parseJSON = withObject "StatsReply" - (\ o -> StatsReply <$> (o .:? "testValue")) + (\ o -> StatsReply' <$> (o .:? "testValue")) instance ToJSON StatsReply where - toJSON StatsReply{..} + toJSON StatsReply'{..} = object (catMaybes [("testValue" .=) <$> _srTestValue]) diff --git a/gen/Network/Google/LatencyTest/Types/Sum.hs b/gen/Network/Google/LatencyTest/Types/Sum.hs --- a/gen/Network/Google/LatencyTest/Types/Sum.hs +++ b/gen/Network/Google/LatencyTest/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.LatencyTest.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/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs b/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs --- a/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs +++ b/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Cloudlatencytest.Statscollection.Updateaggregatedstats --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | RPC to update the new TCP stats. -- -- /See:/ 'statscollectionUpdateaggregatedstats' smart constructor. -newtype StatscollectionUpdateaggregatedstats = StatscollectionUpdateaggregatedstats +newtype StatscollectionUpdateaggregatedstats = StatscollectionUpdateaggregatedstats' { _sPayload :: AggregatedStats } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: AggregatedStats -- ^ 'sPayload' -> StatscollectionUpdateaggregatedstats statscollectionUpdateaggregatedstats pSPayload_ = - StatscollectionUpdateaggregatedstats + StatscollectionUpdateaggregatedstats' { _sPayload = pSPayload_ } @@ -77,8 +77,10 @@ StatscollectionUpdateaggregatedstats where type Rs StatscollectionUpdateaggregatedstats = AggregatedStatsReply + type Scopes StatscollectionUpdateaggregatedstats = + '["https://www.googleapis.com/auth/monitoring.readonly"] requestClient - StatscollectionUpdateaggregatedstats{..} + StatscollectionUpdateaggregatedstats'{..} = go (Just AltJSON) _sPayload latencyTestService where go = buildClient diff --git a/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs b/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs --- a/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs +++ b/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.Cloudlatencytest.Statscollection.Updatestats --- 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 @@ -- | RPC to update the new TCP stats. -- -- /See:/ 'statscollectionUpdatestats' smart constructor. -newtype StatscollectionUpdatestats = StatscollectionUpdatestats +newtype StatscollectionUpdatestats = StatscollectionUpdatestats' { _suPayload :: Stats } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Stats -- ^ 'suPayload' -> StatscollectionUpdatestats statscollectionUpdatestats pSuPayload_ = - StatscollectionUpdatestats + StatscollectionUpdatestats' { _suPayload = pSuPayload_ } @@ -76,7 +76,9 @@ instance GoogleRequest StatscollectionUpdatestats where type Rs StatscollectionUpdatestats = StatsReply - requestClient StatscollectionUpdatestats{..} + type Scopes StatscollectionUpdatestats = + '["https://www.googleapis.com/auth/monitoring.readonly"] + requestClient StatscollectionUpdatestats'{..} = go (Just AltJSON) _suPayload latencyTestService where go = buildClient diff --git a/gogol-latencytest.cabal b/gogol-latencytest.cabal --- a/gogol-latencytest.cabal +++ b/gogol-latencytest.cabal @@ -1,5 +1,5 @@ name: gogol-latencytest -version: 0.0.1 +version: 0.1.0 synopsis: Google Cloud Network Performance Monitoring SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,14 +7,14 @@ 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 extra-source-files: README.md description: - A Test API to report latency data. + Reports latency data. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -43,5 +43,5 @@ , Network.Google.LatencyTest.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5