gogol-latencytest 0.0.1 → 0.1.0

raw patch · 8 files changed

+61/−52 lines, 8 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/LatencyTest.hs +5/−2
• gen/Network/Google/LatencyTest/Types.hs +6/−5
• gen/Network/Google/LatencyTest/Types/Product.hs +30/−29
• gen/Network/Google/LatencyTest/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs +6/−4
• gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs +6/−4
• gogol-latencytest.cabal +4/−4

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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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;

@@ -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 <brendan.g.hay@gmail.com> -- 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])

@@ -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 <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com>-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