gogol-debugger 0.0.1 → 0.1.0

raw patch · 14 files changed

+839/−413 lines, 14 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/Debugger.hs +36/−3
• gen/Network/Google/Debugger/Types.hs +37/−8
• gen/Network/Google/Debugger/Types/Product.hs +518/−266
• gen/Network/Google/Debugger/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs +59/−41
• gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs +15/−12
• gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs +23/−18
• gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs +26/−8
• gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs +26/−9
• gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs +37/−19
• gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs +26/−9
• gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs +27/−11
• gogol-debugger.cabal +5/−5

@@ -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,14 +7,14 @@  -- | -- Module      : Network.Google.Debugger--- 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) ----- Lets you examine the stack and variables of your running application--- without stopping or slowing it down.+-- Examines the call stack and variables of a running application without+-- stopping or slowing it down. -- -- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference> module Network.Google.Debugger@@ -22,6 +22,11 @@     -- * Service Configuration       debuggerService +    -- * OAuth Scopes+    , cloudDebuggerScope+    , cloudDebugletcontrollerScope+    , cloudPlatformScope+     -- * API Declaration     , DebuggerAPI @@ -86,6 +91,7 @@     , gscAliasName     , gscRevisionId     , gscHostURI+    , gscAliasContext      -- ** RepoId     , RepoId@@ -93,6 +99,11 @@     , riUid     , riProjectRepoId +    -- ** ExtendedSourceContextLabels+    , ExtendedSourceContextLabels+    , extendedSourceContextLabels+    , esclAddtional+     -- ** ProjectRepoId     , ProjectRepoId     , projectRepoId@@ -116,6 +127,7 @@     , bExpressions     , bLogMessageFormat     , bId+    , bLabels     , bUserEmail     , bVariableTable     , bStackFrames@@ -124,6 +136,11 @@     , bCreateTime     , bIsFinalState +    -- ** BreakpointLabels+    , BreakpointLabels+    , breakpointLabels+    , blAddtional+     -- ** GetBreakpointResponse     , GetBreakpointResponse     , getBreakpointResponse@@ -137,6 +154,7 @@     , vMembers     , vValue     , vName+    , vType      -- ** ListBreakpointsResponse     , ListBreakpointsResponse@@ -166,7 +184,14 @@     , listActiveBreakpointsResponse     , labrNextWaitToken     , labrBreakpoints+    , labrWaitExpired +    -- ** ExtendedSourceContext+    , ExtendedSourceContext+    , extendedSourceContext+    , escContext+    , escLabels+     -- ** GitSourceContext     , GitSourceContext     , gitSourceContext@@ -193,6 +218,7 @@     , crscRepoId     , crscAliasName     , crscRevisionId+    , crscAliasContext      -- ** DebuggeeLabels     , DebuggeeLabels@@ -205,6 +231,7 @@     , dStatus     , dUniquifier     , dProject+    , dExtSourceContexts     , dAgentVersion     , dIsDisabled     , dId@@ -223,6 +250,12 @@     , RegisterDebuggeeRequest     , registerDebuggeeRequest     , rDebuggee++    -- ** AliasContext+    , AliasContext+    , aliasContext+    , acKind+    , acName      -- ** CloudWorkspaceId     , CloudWorkspaceId

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.Debugger.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@@ -56,6 +57,7 @@     , gscAliasName     , gscRevisionId     , gscHostURI+    , gscAliasContext      -- * RepoId     , RepoId@@ -63,6 +65,11 @@     , riUid     , riProjectRepoId +    -- * ExtendedSourceContextLabels+    , ExtendedSourceContextLabels+    , extendedSourceContextLabels+    , esclAddtional+     -- * ProjectRepoId     , ProjectRepoId     , projectRepoId@@ -86,6 +93,7 @@     , bExpressions     , bLogMessageFormat     , bId+    , bLabels     , bUserEmail     , bVariableTable     , bStackFrames@@ -94,6 +102,11 @@     , bCreateTime     , bIsFinalState +    -- * BreakpointLabels+    , BreakpointLabels+    , breakpointLabels+    , blAddtional+     -- * GetBreakpointResponse     , GetBreakpointResponse     , getBreakpointResponse@@ -107,6 +120,7 @@     , vMembers     , vValue     , vName+    , vType      -- * ListBreakpointsResponse     , ListBreakpointsResponse@@ -136,7 +150,14 @@     , listActiveBreakpointsResponse     , labrNextWaitToken     , labrBreakpoints+    , labrWaitExpired +    -- * ExtendedSourceContext+    , ExtendedSourceContext+    , extendedSourceContext+    , escContext+    , escLabels+     -- * GitSourceContext     , GitSourceContext     , gitSourceContext@@ -163,6 +184,7 @@     , crscRepoId     , crscAliasName     , crscRevisionId+    , crscAliasContext      -- * DebuggeeLabels     , DebuggeeLabels@@ -175,6 +197,7 @@     , dStatus     , dUniquifier     , dProject+    , dExtSourceContexts     , dAgentVersion     , dIsDisabled     , dId@@ -194,6 +217,12 @@     , registerDebuggeeRequest     , rDebuggee +    -- * AliasContext+    , AliasContext+    , aliasContext+    , acKind+    , acName+     -- * CloudWorkspaceId     , CloudWorkspaceId     , cloudWorkspaceId@@ -206,19 +235,19 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v2' of the Google Cloud Debugger API. This contains the host and root path used as a starting point for constructing service requests.-debuggerService :: Service+debuggerService :: ServiceConfig debuggerService   = defaultService (ServiceId "clouddebugger:v2")       "clouddebugger.googleapis.com"  -- | Manage cloud debugger-cloudDebuggerScope :: OAuthScope-cloudDebuggerScope = "https://www.googleapis.com/auth/cloud_debugger";+cloudDebuggerScope :: Proxy '["https://www.googleapis.com/auth/cloud_debugger"]+cloudDebuggerScope = Proxy;  -- | Manage active breakpoints in cloud debugger-cloudDebugletcontrollerScope :: OAuthScope-cloudDebugletcontrollerScope = "https://www.googleapis.com/auth/cloud_debugletcontroller";+cloudDebugletcontrollerScope :: Proxy '["https://www.googleapis.com/auth/cloud_debugletcontroller"]+cloudDebugletcontrollerScope = Proxy;  -- | View and manage your data across Google Cloud Platform services-cloudPlatformScope :: OAuthScope-cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform";+cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]+cloudPlatformScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.Debugger.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@@ -20,10 +20,10 @@ import           Network.Google.Debugger.Types.Sum import           Network.Google.Prelude --- | The response of registering a debuggee.+-- | Response for registering a debuggee. -- -- /See:/ 'registerDebuggeeResponse' smart constructor.-newtype RegisterDebuggeeResponse = RegisterDebuggeeResponse+newtype RegisterDebuggeeResponse = RegisterDebuggeeResponse'     { _rdrDebuggee :: Maybe Debuggee     } deriving (Eq,Show,Data,Typeable,Generic) @@ -35,12 +35,12 @@ registerDebuggeeResponse     :: RegisterDebuggeeResponse registerDebuggeeResponse =-    RegisterDebuggeeResponse+    RegisterDebuggeeResponse'     { _rdrDebuggee = Nothing     } --- | The debuggee resource. The field \'id\' is guranteed to be set (in--- addition to the echoed fields).+-- | Debuggee resource. The field \`id\` is guranteed to be set (in addition+-- to the echoed fields). rdrDebuggee :: Lens' RegisterDebuggeeResponse (Maybe Debuggee) rdrDebuggee   = lens _rdrDebuggee (\ s a -> s{_rdrDebuggee = a})@@ -49,10 +49,10 @@         parseJSON           = withObject "RegisterDebuggeeResponse"               (\ o ->-                 RegisterDebuggeeResponse <$> (o .:? "debuggee"))+                 RegisterDebuggeeResponse' <$> (o .:? "debuggee"))  instance ToJSON RegisterDebuggeeResponse where-        toJSON RegisterDebuggeeResponse{..}+        toJSON RegisterDebuggeeResponse'{..}           = object               (catMaybes [("debuggee" .=) <$> _rdrDebuggee]) @@ -61,7 +61,7 @@ -- directory. -- -- /See:/ 'sourceContext' smart constructor.-data SourceContext = SourceContext+data SourceContext = SourceContext'     { _scCloudWorkspace :: !(Maybe CloudWorkspaceSourceContext)     , _scCloudRepo      :: !(Maybe CloudRepoSourceContext)     , _scGerrit         :: !(Maybe GerritSourceContext)@@ -82,7 +82,7 @@ sourceContext     :: SourceContext sourceContext =-    SourceContext+    SourceContext'     { _scCloudWorkspace = Nothing     , _scCloudRepo = Nothing     , _scGerrit = Nothing@@ -112,23 +112,23 @@         parseJSON           = withObject "SourceContext"               (\ o ->-                 SourceContext <$>+                 SourceContext' <$>                    (o .:? "cloudWorkspace") <*> (o .:? "cloudRepo") <*>                      (o .:? "gerrit")                      <*> (o .:? "git"))  instance ToJSON SourceContext where-        toJSON SourceContext{..}+        toJSON SourceContext'{..}           = object               (catMaybes                  [("cloudWorkspace" .=) <$> _scCloudWorkspace,                   ("cloudRepo" .=) <$> _scCloudRepo,                   ("gerrit" .=) <$> _scGerrit, ("git" .=) <$> _scGit]) --- | The response of setting a breakpoint.+-- | Response for setting a breakpoint. -- -- /See:/ 'setBreakpointResponse' smart constructor.-newtype SetBreakpointResponse = SetBreakpointResponse+newtype SetBreakpointResponse = SetBreakpointResponse'     { _sbrBreakpoint :: Maybe Breakpoint     } deriving (Eq,Show,Data,Typeable,Generic) @@ -140,11 +140,11 @@ setBreakpointResponse     :: SetBreakpointResponse setBreakpointResponse =-    SetBreakpointResponse+    SetBreakpointResponse'     { _sbrBreakpoint = Nothing     } --- | The breakpoint resource. The field \'id\' is guranteed to be set (in+-- | Breakpoint resource. The field \`id\` is guaranteed to be set (in -- addition to the echoed fileds). sbrBreakpoint :: Lens' SetBreakpointResponse (Maybe Breakpoint) sbrBreakpoint@@ -155,10 +155,10 @@         parseJSON           = withObject "SetBreakpointResponse"               (\ o ->-                 SetBreakpointResponse <$> (o .:? "breakpoint"))+                 SetBreakpointResponse' <$> (o .:? "breakpoint"))  instance ToJSON SetBreakpointResponse where-        toJSON SetBreakpointResponse{..}+        toJSON SetBreakpointResponse'{..}           = object               (catMaybes [("breakpoint" .=) <$> _sbrBreakpoint]) @@ -170,40 +170,40 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty+    Empty'     deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty     :: Empty-empty = Empty+empty = Empty'  instance FromJSON Empty where-        parseJSON = withObject "Empty" (\ o -> pure Empty)+        parseJSON = withObject "Empty" (\ o -> pure Empty')  instance ToJSON Empty where         toJSON = const emptyObject --- | The response of updating an active breakpoint. The message is defined to+-- | Response for updating an active breakpoint. The message is defined to -- allow future extensions. -- -- /See:/ 'updateActiveBreakpointResponse' smart constructor. data UpdateActiveBreakpointResponse =-    UpdateActiveBreakpointResponse+    UpdateActiveBreakpointResponse'     deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdateActiveBreakpointResponse' with the minimum fields required to make a request. -- updateActiveBreakpointResponse     :: UpdateActiveBreakpointResponse-updateActiveBreakpointResponse = UpdateActiveBreakpointResponse+updateActiveBreakpointResponse = UpdateActiveBreakpointResponse'  instance FromJSON UpdateActiveBreakpointResponse          where         parseJSON           = withObject "UpdateActiveBreakpointResponse"-              (\ o -> pure UpdateActiveBreakpointResponse)+              (\ o -> pure UpdateActiveBreakpointResponse')  instance ToJSON UpdateActiveBreakpointResponse where         toJSON = const emptyObject@@ -211,11 +211,12 @@ -- | A SourceContext referring to a Gerrit project. -- -- /See:/ 'gerritSourceContext' smart constructor.-data GerritSourceContext = GerritSourceContext+data GerritSourceContext = GerritSourceContext'     { _gscGerritProject :: !(Maybe Text)     , _gscAliasName     :: !(Maybe Text)     , _gscRevisionId    :: !(Maybe Text)     , _gscHostURI       :: !(Maybe Text)+    , _gscAliasContext  :: !(Maybe AliasContext)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'GerritSourceContext' with the minimum fields required to make a request.@@ -229,14 +230,17 @@ -- * 'gscRevisionId' -- -- * 'gscHostURI'+--+-- * 'gscAliasContext' gerritSourceContext     :: GerritSourceContext gerritSourceContext =-    GerritSourceContext+    GerritSourceContext'     { _gscGerritProject = Nothing     , _gscAliasName = Nothing     , _gscRevisionId = Nothing     , _gscHostURI = Nothing+    , _gscAliasContext = Nothing     }  -- | The full project name within the host. Projects may be nested, so@@ -263,28 +267,36 @@ gscHostURI   = lens _gscHostURI (\ s a -> s{_gscHostURI = a}) +-- | An alias, which may be a branch or tag.+gscAliasContext :: Lens' GerritSourceContext (Maybe AliasContext)+gscAliasContext+  = lens _gscAliasContext+      (\ s a -> s{_gscAliasContext = a})+ instance FromJSON GerritSourceContext where         parseJSON           = withObject "GerritSourceContext"               (\ o ->-                 GerritSourceContext <$>+                 GerritSourceContext' <$>                    (o .:? "gerritProject") <*> (o .:? "aliasName") <*>                      (o .:? "revisionId")-                     <*> (o .:? "hostUri"))+                     <*> (o .:? "hostUri")+                     <*> (o .:? "aliasContext"))  instance ToJSON GerritSourceContext where-        toJSON GerritSourceContext{..}+        toJSON GerritSourceContext'{..}           = object               (catMaybes                  [("gerritProject" .=) <$> _gscGerritProject,                   ("aliasName" .=) <$> _gscAliasName,                   ("revisionId" .=) <$> _gscRevisionId,-                  ("hostUri" .=) <$> _gscHostURI])+                  ("hostUri" .=) <$> _gscHostURI,+                  ("aliasContext" .=) <$> _gscAliasContext])  -- | A unique identifier for a cloud repo. -- -- /See:/ 'repoId' smart constructor.-data RepoId = RepoId+data RepoId = RepoId'     { _riUid           :: !(Maybe Text)     , _riProjectRepoId :: !(Maybe ProjectRepoId)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -299,7 +311,7 @@ repoId     :: RepoId repoId =-    RepoId+    RepoId'     { _riUid = Nothing     , _riProjectRepoId = Nothing     }@@ -318,20 +330,56 @@         parseJSON           = withObject "RepoId"               (\ o ->-                 RepoId <$> (o .:? "uid") <*> (o .:? "projectRepoId"))+                 RepoId' <$>+                   (o .:? "uid") <*> (o .:? "projectRepoId"))  instance ToJSON RepoId where-        toJSON RepoId{..}+        toJSON RepoId'{..}           = object               (catMaybes                  [("uid" .=) <$> _riUid,                   ("projectRepoId" .=) <$> _riProjectRepoId]) +-- | Labels with user defined metadata.+--+-- /See:/ 'extendedSourceContextLabels' smart constructor.+newtype ExtendedSourceContextLabels = ExtendedSourceContextLabels'+    { _esclAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ExtendedSourceContextLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esclAddtional'+extendedSourceContextLabels+    :: HashMap Text Text -- ^ 'esclAddtional'+    -> ExtendedSourceContextLabels+extendedSourceContextLabels pEsclAddtional_ =+    ExtendedSourceContextLabels'+    { _esclAddtional = _Coerce # pEsclAddtional_+    }++esclAddtional :: Lens' ExtendedSourceContextLabels (HashMap Text Text)+esclAddtional+  = lens _esclAddtional+      (\ s a -> s{_esclAddtional = a})+      . _Coerce++instance FromJSON ExtendedSourceContextLabels where+        parseJSON+          = withObject "ExtendedSourceContextLabels"+              (\ o ->+                 ExtendedSourceContextLabels' <$> (parseJSONObject o))++instance ToJSON ExtendedSourceContextLabels where+        toJSON = toJSON . _esclAddtional+ -- | Selects a repo using a Google Cloud Platform project ID (e.g. -- winged-cargo-31) and a repo name within that project. -- -- /See:/ 'projectRepoId' smart constructor.-data ProjectRepoId = ProjectRepoId+data ProjectRepoId = ProjectRepoId'     { _priRepoName  :: !(Maybe Text)     , _priProjectId :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -346,7 +394,7 @@ projectRepoId     :: ProjectRepoId projectRepoId =-    ProjectRepoId+    ProjectRepoId'     { _priRepoName = Nothing     , _priProjectId = Nothing     }@@ -365,11 +413,11 @@         parseJSON           = withObject "ProjectRepoId"               (\ o ->-                 ProjectRepoId <$>+                 ProjectRepoId' <$>                    (o .:? "repoName") <*> (o .:? "projectId"))  instance ToJSON ProjectRepoId where-        toJSON ProjectRepoId{..}+        toJSON ProjectRepoId'{..}           = object               (catMaybes                  [("repoName" .=) <$> _priRepoName,@@ -378,7 +426,7 @@ -- | Represents a message with parameters. -- -- /See:/ 'formatMessage' smart constructor.-data FormatMessage = FormatMessage+data FormatMessage = FormatMessage'     { _fmFormat     :: !(Maybe Text)     , _fmParameters :: !(Maybe [Text])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -393,16 +441,17 @@ formatMessage     :: FormatMessage formatMessage =-    FormatMessage+    FormatMessage'     { _fmFormat = Nothing     , _fmParameters = Nothing     } --- | Format template of the message. The \"format\" uses placeholders \"$0\",--- \"$1\", etc. to reference parameters. \"$$\" can be used to denote the \'$\'--- character. Examples: \"Failed to load \'$0\' which helps debug $1 the--- first time it is loaded. Again, $0 is very important.\" \"Please pay--- $$10 to use $0 instead of $1.\"+-- | Format template for the message. The \`format\` uses placeholders+-- \`$0\`,+-- \`$1\`, etc. to reference parameters. \`$$\` can be used to denote the \`$\`+-- character. Examples: * \`Failed to load \'$0\' which helps debug $1 the+-- first time it is loaded. Again, $0 is very important.\` * \`Please pay+-- $$10 to use $0 instead of $1.\` fmFormat :: Lens' FormatMessage (Maybe Text) fmFormat = lens _fmFormat (\ s a -> s{_fmFormat = a}) @@ -417,11 +466,11 @@         parseJSON           = withObject "FormatMessage"               (\ o ->-                 FormatMessage <$>+                 FormatMessage' <$>                    (o .:? "format") <*> (o .:? "parameters" .!= mempty))  instance ToJSON FormatMessage where-        toJSON FormatMessage{..}+        toJSON FormatMessage'{..}           = object               (catMaybes                  [("format" .=) <$> _fmFormat,@@ -430,7 +479,7 @@ -- | Represents the breakpoint specification, status and results. -- -- /See:/ 'breakpoint' smart constructor.-data Breakpoint = Breakpoint+data Breakpoint = Breakpoint'     { _bStatus               :: !(Maybe StatusMessage)     , _bLogLevel             :: !(Maybe Text)     , _bLocation             :: !(Maybe SourceLocation)@@ -439,6 +488,7 @@     , _bExpressions          :: !(Maybe [Text])     , _bLogMessageFormat     :: !(Maybe Text)     , _bId                   :: !(Maybe Text)+    , _bLabels               :: !(Maybe BreakpointLabels)     , _bUserEmail            :: !(Maybe Text)     , _bVariableTable        :: !(Maybe [Variable])     , _bStackFrames          :: !(Maybe [StackFrame])@@ -468,6 +518,8 @@ -- -- * 'bId' --+-- * 'bLabels'+-- -- * 'bUserEmail' -- -- * 'bVariableTable'@@ -484,7 +536,7 @@ breakpoint     :: Breakpoint breakpoint =-    Breakpoint+    Breakpoint'     { _bStatus = Nothing     , _bLogLevel = Nothing     , _bLocation = Nothing@@ -493,6 +545,7 @@     , _bExpressions = Nothing     , _bLogMessageFormat = Nothing     , _bId = Nothing+    , _bLabels = Nothing     , _bUserEmail = Nothing     , _bVariableTable = Nothing     , _bStackFrames = Nothing@@ -503,39 +556,40 @@     }  -- | Breakpoint status. The status includes an error flag and a human--- readable message. This field will usually stay unset. The message can be--- either informational or error. Nevertheless, clients should always--- display the text message back to the user. Error status of a breakpoint--- indicates complete failure. Example (non-final state): \'Still loading--- symbols...\' Examples (final state): \'Failed to insert breakpoint\'--- referring to breakpoint, \'Field f not found in class C\' referring to--- condition, ...+-- readable message. This field is usually unset. The message can be either+-- informational or an error message. Regardless, clients should always+-- display the text message back to the user. Error status indicates+-- complete failure of the breakpoint. Example (non-final state): \`Still+-- loading symbols...\` Examples (final state): * \`Invalid line number\`+-- referring to location * \`Field f not found in class C\` referring to+-- condition bStatus :: Lens' Breakpoint (Maybe StatusMessage) bStatus = lens _bStatus (\ s a -> s{_bStatus = a}) --- | Indicates the severity of the log. Only relevant when action is \"LOG\".+-- | Indicates the severity of the log. Only relevant when action is \`LOG\`. bLogLevel :: Lens' Breakpoint (Maybe Text) bLogLevel   = lens _bLogLevel (\ s a -> s{_bLogLevel = a}) --- | The breakpoint source location.+-- | Breakpoint source location. bLocation :: Lens' Breakpoint (Maybe SourceLocation) bLocation   = lens _bLocation (\ s a -> s{_bLocation = a}) --- | Defines what to do when the breakpoint hits.+-- | Action that the agent should perform when the code at the breakpoint+-- location is hit. bAction :: Lens' Breakpoint (Maybe Text) bAction = lens _bAction (\ s a -> s{_bAction = a}) --- | The time this breakpoint was finalized as seen by the server. The value--- is in seconds resolution.+-- | Time this breakpoint was finalized as seen by the server in seconds+-- resolution. bFinalTime :: Lens' Breakpoint (Maybe Text) bFinalTime   = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) --- | A list of read-only expressions to evaluate at the breakpoint location.+-- | List of read-only expressions to evaluate at the breakpoint location. -- The expressions are composed using expressions in the programming--- language at the source location. If the breakpoint action is \"LOG\",+-- language at the source location. If the breakpoint action is \`LOG\`, -- the evaluated expressions are included in log statements. bExpressions :: Lens' Breakpoint [Text] bExpressions@@ -543,13 +597,13 @@       . _Default       . _Coerce --- | Only relevant when action is \"LOG\". Defines the message to log when+-- | Only relevant when action is \`LOG\`. Defines the message to log when -- the breakpoint hits. The message may include parameter placeholders--- \"$0\", \"$1\", etc. These placeholders will be replaced with the--- evaluated value of the appropriate expression. Expressions not--- referenced in \"log_message_format\" will not be logged. Example:--- \"Poisonous message received, id = $0, count = $1\" with expressions = [--- \"message.id\", \"message.count\" ].+-- \`$0\`, \`$1\`, etc. These placeholders are replaced with the evaluated+-- value of the appropriate expression. Expressions not referenced in+-- \`log_message_format\` are not logged. Example: \`Message received, id =+-- $0, count = $1\` with \`expressions\` = \`[ message.id, message.count+-- ]\`. bLogMessageFormat :: Lens' Breakpoint (Maybe Text) bLogMessageFormat   = lens _bLogMessageFormat@@ -559,21 +613,26 @@ bId :: Lens' Breakpoint (Maybe Text) bId = lens _bId (\ s a -> s{_bId = a}) --- | The e-mail of the user that created this breakpoint+-- | A set of custom breakpoint properties, populated by the agent, to be+-- displayed to the user.+bLabels :: Lens' Breakpoint (Maybe BreakpointLabels)+bLabels = lens _bLabels (\ s a -> s{_bLabels = a})++-- | E-mail address of the user that created this breakpoint bUserEmail :: Lens' Breakpoint (Maybe Text) bUserEmail   = lens _bUserEmail (\ s a -> s{_bUserEmail = a}) --- | The variable_table exists to aid with computation, memory and network--- traffic optimization. It enables storing a variable once and reference--- it from multiple variables, including variables stored in the--- variable_table itself. For example, the object \'this\', which may--- appear at many levels of the stack, can have all of it\'s data stored+-- | The \`variable_table\` exists to aid with computation, memory and+-- network traffic optimization. It enables storing a variable once and+-- reference it from multiple variables, including variables stored in the+-- \`variable_table\` itself. For example, the same \`this\` object, which+-- may appear at many levels of the stack, can have all of its data stored -- once in this table. The stack frame variables then would hold only a--- reference to it. The variable var_index field is an index into this--- repeated field. The stored objects are nameless and get their name from--- the referencing variable. The effective variable is a merge of the--- referencing veariable and the referenced variable.+-- reference to it. The variable \`var_table_index\` field is an index into+-- this repeated field. The stored objects are nameless and get their name+-- from the referencing variable. The effective variable is a merge of the+-- referencing variable and the referenced variable. bVariableTable :: Lens' Breakpoint [Variable] bVariableTable   = lens _bVariableTable@@ -588,19 +647,20 @@       . _Default       . _Coerce --- | A condition to trigger the breakpoint. The condition is a compound+-- | Condition that triggers the breakpoint. The condition is a compound -- boolean expression composed using expressions in a programming language -- at the source location. bCondition :: Lens' Breakpoint (Maybe Text) bCondition   = lens _bCondition (\ s a -> s{_bCondition = a}) --- | The evaluated expressions\' values at breakpoint time. The evaluated+-- | Values of evaluated expressions at breakpoint time. The evaluated -- expressions appear in exactly the same order they are listed in the--- \'expressions\' field. The \'name\' field holds the original expression--- text, the \'value\'\/\'members\' field holds the result of the evaluated--- expression. If the expression can not be evaluated, an error text is--- placed in the value field.+-- \`expressions\` field. The \`name\` field holds the original expression+-- text, the \`value\` or \`members\` field holds the result of the+-- evaluated expression. If the expression cannot be evaluated, the+-- \`status\` inside the \`Variable\` will indicate an error and contain+-- the error text. bEvaluatedExpressions :: Lens' Breakpoint [Variable] bEvaluatedExpressions   = lens _bEvaluatedExpressions@@ -608,8 +668,7 @@       . _Default       . _Coerce --- | The time this breakpoint was created by the server. The value is in--- seconds resolution.+-- | Time this breakpoint was created by the server in seconds resolution. bCreateTime :: Lens' Breakpoint (Maybe Text) bCreateTime   = lens _bCreateTime (\ s a -> s{_bCreateTime = a})@@ -625,7 +684,7 @@         parseJSON           = withObject "Breakpoint"               (\ o ->-                 Breakpoint <$>+                 Breakpoint' <$>                    (o .:? "status") <*> (o .:? "logLevel") <*>                      (o .:? "location")                      <*> (o .:? "action")@@ -633,6 +692,7 @@                      <*> (o .:? "expressions" .!= mempty)                      <*> (o .:? "logMessageFormat")                      <*> (o .:? "id")+                     <*> (o .:? "labels")                      <*> (o .:? "userEmail")                      <*> (o .:? "variableTable" .!= mempty)                      <*> (o .:? "stackFrames" .!= mempty)@@ -642,7 +702,7 @@                      <*> (o .:? "isFinalState"))  instance ToJSON Breakpoint where-        toJSON Breakpoint{..}+        toJSON Breakpoint'{..}           = object               (catMaybes                  [("status" .=) <$> _bStatus,@@ -652,7 +712,8 @@                   ("finalTime" .=) <$> _bFinalTime,                   ("expressions" .=) <$> _bExpressions,                   ("logMessageFormat" .=) <$> _bLogMessageFormat,-                  ("id" .=) <$> _bId, ("userEmail" .=) <$> _bUserEmail,+                  ("id" .=) <$> _bId, ("labels" .=) <$> _bLabels,+                  ("userEmail" .=) <$> _bUserEmail,                   ("variableTable" .=) <$> _bVariableTable,                   ("stackFrames" .=) <$> _bStackFrames,                   ("condition" .=) <$> _bCondition,@@ -661,10 +722,44 @@                   ("createTime" .=) <$> _bCreateTime,                   ("isFinalState" .=) <$> _bIsFinalState]) --- | The response of getting breakpoint information.+-- | A set of custom breakpoint properties, populated by the agent, to be+-- displayed to the user. --+-- /See:/ 'breakpointLabels' smart constructor.+newtype BreakpointLabels = BreakpointLabels'+    { _blAddtional :: HashMap Text Text+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'BreakpointLabels' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'blAddtional'+breakpointLabels+    :: HashMap Text Text -- ^ 'blAddtional'+    -> BreakpointLabels+breakpointLabels pBlAddtional_ =+    BreakpointLabels'+    { _blAddtional = _Coerce # pBlAddtional_+    }++blAddtional :: Lens' BreakpointLabels (HashMap Text Text)+blAddtional+  = lens _blAddtional (\ s a -> s{_blAddtional = a}) .+      _Coerce++instance FromJSON BreakpointLabels where+        parseJSON+          = withObject "BreakpointLabels"+              (\ o -> BreakpointLabels' <$> (parseJSONObject o))++instance ToJSON BreakpointLabels where+        toJSON = toJSON . _blAddtional++-- | Response for getting breakpoint information.+-- -- /See:/ 'getBreakpointResponse' smart constructor.-newtype GetBreakpointResponse = GetBreakpointResponse+newtype GetBreakpointResponse = GetBreakpointResponse'     { _gbrBreakpoint :: Maybe Breakpoint     } deriving (Eq,Show,Data,Typeable,Generic) @@ -676,12 +771,12 @@ getBreakpointResponse     :: GetBreakpointResponse getBreakpointResponse =-    GetBreakpointResponse+    GetBreakpointResponse'     { _gbrBreakpoint = Nothing     } --- | The complete breakpoint state. The fields \'id\' and \'location\' are--- guranteed to be set.+-- | Complete breakpoint state. The fields \`id\` and \`location\` are+-- guaranteed to be set. gbrBreakpoint :: Lens' GetBreakpointResponse (Maybe Breakpoint) gbrBreakpoint   = lens _gbrBreakpoint@@ -691,52 +786,60 @@         parseJSON           = withObject "GetBreakpointResponse"               (\ o ->-                 GetBreakpointResponse <$> (o .:? "breakpoint"))+                 GetBreakpointResponse' <$> (o .:? "breakpoint"))  instance ToJSON GetBreakpointResponse where-        toJSON GetBreakpointResponse{..}+        toJSON GetBreakpointResponse'{..}           = object               (catMaybes [("breakpoint" .=) <$> _gbrBreakpoint])  -- | Represents a variable or an argument possibly of a compound object type.--- 1. A simple variable such as, int x = 5 is represented as: { name:--- \"x\", value: \"5\" } 2. A compound object such as, struct T { int m1;--- int m2; }; T x = { 3, 7 }; is represented as: { name: \"x\", members {--- name: \"m1\", value: \"3\" }, members { name: \"m2\", value: \"7\" } }--- 3. A pointer where the pointee was captured such as, T x = { 3, 7 }; T*--- p = &x; is represented as: { name: \"p\", value: \"0x00500500\", members--- { name: \"m1\", value: \"3\" }, members { name: \"m2\", value: \"7\" } }--- 4. A pointer where the pointee was not captured or is inaccessible such--- as, T* p = new T; is represented as: { name: \"p\", value:--- \"0x00400400\", members { value: \"\" } } the value text should decribe--- the reason for the missing value. such as , , . note that a null pointer--- should not have members. 5. An unnamed value such as, int* p = new--- int(7); is represented as, { name: \"p\", value: \"0x00500500\", members--- { value: \"7\" } } 6. An unnamed pointer where the pointee was not--- captured such as, int* p = new int(7); int** pp = &p; is represented as:--- { name: \"pp\", value: \"0x00500500\", members { value: \"0x00400400\",--- members { value: \"\" } } } To optimize computation, memory and network--- traffic, variables that repeat in the output multiple times can be--- stored once in a shared variable table and be referenced using the--- var_index field. The variables stored in the shared table are nameless--- and are essentially a partition of the complete variable. To reconstruct--- the complete variable merge the referencing variable with the referenced--- variable. When using the shared variable table, variables can be--- represented as: T x = { 3, 7 }; T* p = &x; T& r = x; are represented as,--- { name: \"x\", var_index: 3 } { name: \"p\", value \"0x00500500\",--- var_index: 3 } { name: \"r\", var_index: 3 } with shared variable table--- entry #3: { members { name: \"m1\", value: \"3\" }, members { name:--- \"m2\", value: \"7\" } } Note that the pointer address is stored with--- the referencing variable and not with the referenced variable, to allow--- the referenced variable to be shared between pointer and references.+-- Note how the following variables are represented: 1) A simple variable:+-- int x = 5 { name: \"x\", value: \"5\", type: \"int\" } \/\/ Captured+-- variable 2) A compound object: struct T { int m1; int m2; }; T x = { 3,+-- 7 }; { \/\/ Captured variable name: \"x\", type: \"T\", members { name:+-- \"m1\", value: \"3\", type: \"int\" }, members { name: \"m2\", value:+-- \"7\", type: \"int\" } } 3) A pointer where the pointee was captured: T+-- x = { 3, 7 }; T* p = &x; { \/\/ Captured variable name: \"p\", type:+-- \"T*\", value: \"0x00500500\", members { name: \"m1\", value: \"3\",+-- type: \"int\" }, members { name: \"m2\", value: \"7\", type: \"int\" } }+-- 4) A pointer where the pointee was not captured: T* p = new T; { \/\/+-- Captured variable name: \"p\", type: \"T*\", value: \"0x00400400\"+-- status { is_error: true, description { format: \"unavailable\" } } } The+-- status should describe the reason for the missing value, such as \`\`,+-- \`\`, \` \`. Note that a null pointer should not have members. 5) An+-- unnamed value: int* p = new int(7); { \/\/ Captured variable name:+-- \"p\", value: \"0x00500500\", type: \"int*\", members { value: \"7\",+-- type: \"int\" } } 6) An unnamed pointer where the pointee was not+-- captured: int* p = new int(7); int** pp = &p; { \/\/ Captured variable+-- name: \"pp\", value: \"0x00500500\", type: \"int**\", members { value:+-- \"0x00400400\", type: \"int*\" status { is_error: true, description: {+-- format: \"unavailable\" } } } } } To optimize computation, memory and+-- network traffic, variables that repeat in the output multiple times can+-- be stored once in a shared variable table and be referenced using the+-- \`var_table_index\` field. The variables stored in the shared table are+-- nameless and are essentially a partition of the complete variable. To+-- reconstruct the complete variable, merge the referencing variable with+-- the referenced variable. When using the shared variable table, the+-- following variables: T x = { 3, 7 }; T* p = &x; T& r = x; { name: \"x\",+-- var_table_index: 3, type: \"T\" } \/\/ Captured variables { name: \"p\",+-- value \"0x00500500\", type=\"T*\", var_table_index: 3 } { name: \"r\",+-- type=\"T&\", var_table_index: 3 } { \/\/ Shared variable table entry #3:+-- members { name: \"m1\", value: \"3\", type: \"int\" }, members { name:+-- \"m2\", value: \"7\", type: \"int\" } } Note that the pointer address is+-- stored with the referencing variable and not with the referenced+-- variable. This allows the referenced variable to be shared between+-- pointers and references. The type field is optional. The debugger agent+-- may or may not support it. -- -- /See:/ 'variable' smart constructor.-data Variable = Variable+data Variable = Variable'     { _vStatus        :: !(Maybe StatusMessage)     , _vVarTableIndex :: !(Maybe (Textual Int32))     , _vMembers       :: !(Maybe [Variable])     , _vValue         :: !(Maybe Text)     , _vName          :: !(Maybe Text)+    , _vType          :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Variable' with the minimum fields required to make a request.@@ -752,79 +855,92 @@ -- * 'vValue' -- -- * 'vName'+--+-- * 'vType' variable     :: Variable variable =-    Variable+    Variable'     { _vStatus = Nothing     , _vVarTableIndex = Nothing     , _vMembers = Nothing     , _vValue = Nothing     , _vName = Nothing+    , _vType = Nothing     }  -- | Status associated with the variable. This field will usually stay unset. -- A status of a single variable only applies to that variable or -- expression. The rest of breakpoint data still remains valid. Variables -- might be reported in error state even when breakpoint is not in final--- state. The message may refer to variable name with \"refers_to\" set to--- \"VARIABLE_NAME\". Alternatively \"refers_to\" will be set to--- \"VARIABLE_VALUE\". In either case variable value and members will be--- unset. Example of error message applied to name: \"Invalid expression--- syntax\". Example of information message applied to value: \"Not--- captured\". Examples of error message applied to value: \"Malformed--- string\", \"Field f not found in class C\", \"Null pointer--- dereference\".+-- state. The message may refer to variable name with \`refers_to\` set to+-- \`VARIABLE_NAME\`. Alternatively \`refers_to\` will be set to+-- \`VARIABLE_VALUE\`. In either case variable value and members will be+-- unset. Example of error message applied to name: \`Invalid expression+-- syntax\`. Example of information message applied to value: \`Not+-- captured\`. Examples of error message applied to value: * \`Malformed+-- string\`, * \`Field f not found in class C\` * \`Null pointer+-- dereference\` vStatus :: Lens' Variable (Maybe StatusMessage) vStatus = lens _vStatus (\ s a -> s{_vStatus = a}) --- | This is a reference to a variable in the shared variable table. More--- than one variable can reference the same variable in the table. The--- var_index field is an index into variable_table in Breakpoint.+-- | Reference to a variable in the shared variable table. More than one+-- variable can reference the same variable in the table. The+-- \`var_table_index\` field is an index into \`variable_table\` in+-- Breakpoint. vVarTableIndex :: Lens' Variable (Maybe Int32) vVarTableIndex   = lens _vVarTableIndex       (\ s a -> s{_vVarTableIndex = a})       . mapping _Coerce --- | The members contained or pointed to by the variable.+-- | Members contained or pointed to by the variable. vMembers :: Lens' Variable [Variable] vMembers   = lens _vMembers (\ s a -> s{_vMembers = a}) .       _Default       . _Coerce --- | The simple value of the variable.+-- | Simple value of the variable. vValue :: Lens' Variable (Maybe Text) vValue = lens _vValue (\ s a -> s{_vValue = a}) --- | The name of the variable, if any.+-- | Name of the variable, if any. vName :: Lens' Variable (Maybe Text) vName = lens _vName (\ s a -> s{_vName = a}) +-- | Variable type (e.g. \`MyClass\`). If the variable is split with+-- \`var_table_index\`, \`type\` goes next to \`value\`. The interpretation+-- of a type is agent specific. It is recommended to include the dynamic+-- type rather than a static type of an object.+vType :: Lens' Variable (Maybe Text)+vType = lens _vType (\ s a -> s{_vType = a})+ instance FromJSON Variable where         parseJSON           = withObject "Variable"               (\ o ->-                 Variable <$>+                 Variable' <$>                    (o .:? "status") <*> (o .:? "varTableIndex") <*>                      (o .:? "members" .!= mempty)                      <*> (o .:? "value")-                     <*> (o .:? "name"))+                     <*> (o .:? "name")+                     <*> (o .:? "type"))  instance ToJSON Variable where-        toJSON Variable{..}+        toJSON Variable'{..}           = object               (catMaybes                  [("status" .=) <$> _vStatus,                   ("varTableIndex" .=) <$> _vVarTableIndex,                   ("members" .=) <$> _vMembers,-                  ("value" .=) <$> _vValue, ("name" .=) <$> _vName])+                  ("value" .=) <$> _vValue, ("name" .=) <$> _vName,+                  ("type" .=) <$> _vType]) --- | The response of listing breakpoints.+-- | Response for listing breakpoints. -- -- /See:/ 'listBreakpointsResponse' smart constructor.-data ListBreakpointsResponse = ListBreakpointsResponse+data ListBreakpointsResponse = ListBreakpointsResponse'     { _lbrNextWaitToken :: !(Maybe Text)     , _lbrBreakpoints   :: !(Maybe [Breakpoint])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -839,20 +955,21 @@ listBreakpointsResponse     :: ListBreakpointsResponse listBreakpointsResponse =-    ListBreakpointsResponse+    ListBreakpointsResponse'     { _lbrNextWaitToken = Nothing     , _lbrBreakpoints = Nothing     } --- | A wait token that can be used in the next call to ListBreakpoints to--- block until the list of breakpoints has changes.+-- | A wait token that can be used in the next call to \`list\` (REST) or+-- \`ListBreakpoints\` (RPC) to block until the list of breakpoints has+-- changes. lbrNextWaitToken :: Lens' ListBreakpointsResponse (Maybe Text) lbrNextWaitToken   = lens _lbrNextWaitToken       (\ s a -> s{_lbrNextWaitToken = a}) --- | List of all breakpoints with complete state. The fields \'id\' and--- \'location\' are guranteed to be set on each breakpoint.+-- | List of all breakpoints with complete state. The fields \`id\` and+-- \`location\` are guaranteed to be set on each breakpoint. lbrBreakpoints :: Lens' ListBreakpointsResponse [Breakpoint] lbrBreakpoints   = lens _lbrBreakpoints@@ -864,21 +981,21 @@         parseJSON           = withObject "ListBreakpointsResponse"               (\ o ->-                 ListBreakpointsResponse <$>+                 ListBreakpointsResponse' <$>                    (o .:? "nextWaitToken") <*>                      (o .:? "breakpoints" .!= mempty))  instance ToJSON ListBreakpointsResponse where-        toJSON ListBreakpointsResponse{..}+        toJSON ListBreakpointsResponse'{..}           = object               (catMaybes                  [("nextWaitToken" .=) <$> _lbrNextWaitToken,                   ("breakpoints" .=) <$> _lbrBreakpoints]) --- | The response of listing debuggees.+-- | Response for listing debuggees. -- -- /See:/ 'listDebuggeesResponse' smart constructor.-newtype ListDebuggeesResponse = ListDebuggeesResponse+newtype ListDebuggeesResponse = ListDebuggeesResponse'     { _ldrDebuggees :: Maybe [Debuggee]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -890,14 +1007,14 @@ listDebuggeesResponse     :: ListDebuggeesResponse listDebuggeesResponse =-    ListDebuggeesResponse+    ListDebuggeesResponse'     { _ldrDebuggees = Nothing     } --- | The list of debuggees accessible to the calling user. Note that the--- description field is the only human readable field that should be--- displayed to the user. The fields \'debuggee.id\' and \'description\'--- are guranteed to be set on each debuggee.+-- | List of debuggees accessible to the calling user. Note that the+-- \`description\` field is the only human readable field that should be+-- displayed to the user. The fields \`debuggee.id\` and \`description\`+-- fields are guaranteed to be set on each debuggee. ldrDebuggees :: Lens' ListDebuggeesResponse [Debuggee] ldrDebuggees   = lens _ldrDebuggees (\ s a -> s{_ldrDebuggees = a})@@ -908,18 +1025,18 @@         parseJSON           = withObject "ListDebuggeesResponse"               (\ o ->-                 ListDebuggeesResponse <$>+                 ListDebuggeesResponse' <$>                    (o .:? "debuggees" .!= mempty))  instance ToJSON ListDebuggeesResponse where-        toJSON ListDebuggeesResponse{..}+        toJSON ListDebuggeesResponse'{..}           = object               (catMaybes [("debuggees" .=) <$> _ldrDebuggees]) --- | The request to update an active breakpoint.+-- | Request to update an active breakpoint. -- -- /See:/ 'updateActiveBreakpointRequest' smart constructor.-newtype UpdateActiveBreakpointRequest = UpdateActiveBreakpointRequest+newtype UpdateActiveBreakpointRequest = UpdateActiveBreakpointRequest'     { _uabrBreakpoint :: Maybe Breakpoint     } deriving (Eq,Show,Data,Typeable,Generic) @@ -931,11 +1048,11 @@ updateActiveBreakpointRequest     :: UpdateActiveBreakpointRequest updateActiveBreakpointRequest =-    UpdateActiveBreakpointRequest+    UpdateActiveBreakpointRequest'     { _uabrBreakpoint = Nothing     } --- | The updated breakpoint information. The field \'id\' must be set.+-- | Updated breakpoint information. The field \'id\' must be set. uabrBreakpoint :: Lens' UpdateActiveBreakpointRequest (Maybe Breakpoint) uabrBreakpoint   = lens _uabrBreakpoint@@ -945,22 +1062,22 @@         parseJSON           = withObject "UpdateActiveBreakpointRequest"               (\ o ->-                 UpdateActiveBreakpointRequest <$>+                 UpdateActiveBreakpointRequest' <$>                    (o .:? "breakpoint"))  instance ToJSON UpdateActiveBreakpointRequest where-        toJSON UpdateActiveBreakpointRequest{..}+        toJSON UpdateActiveBreakpointRequest'{..}           = object               (catMaybes [("breakpoint" .=) <$> _uabrBreakpoint])  -- | Represents a contextual status message. The message can indicate an -- error or informational status, and refer to specific parts of the--- containing object. For example, the Breakpoint.status field can indicate--- an error referring to the BREAKPOINT_SOURCE_LOCATION with the message--- \"Location not found\".+-- containing object. For example, the \`Breakpoint.status\` field can+-- indicate an error referring to the \`BREAKPOINT_SOURCE_LOCATION\` with+-- the message \`Location not found\`. -- -- /See:/ 'statusMessage' smart constructor.-data StatusMessage = StatusMessage+data StatusMessage = StatusMessage'     { _smRefersTo    :: !(Maybe Text)     , _smIsError     :: !(Maybe Bool)     , _smDescription :: !(Maybe FormatMessage)@@ -978,7 +1095,7 @@ statusMessage     :: StatusMessage statusMessage =-    StatusMessage+    StatusMessage'     { _smRefersTo = Nothing     , _smIsError = Nothing     , _smDescription = Nothing@@ -1004,24 +1121,25 @@         parseJSON           = withObject "StatusMessage"               (\ o ->-                 StatusMessage <$>+                 StatusMessage' <$>                    (o .:? "refersTo") <*> (o .:? "isError") <*>                      (o .:? "description"))  instance ToJSON StatusMessage where-        toJSON StatusMessage{..}+        toJSON StatusMessage'{..}           = object               (catMaybes                  [("refersTo" .=) <$> _smRefersTo,                   ("isError" .=) <$> _smIsError,                   ("description" .=) <$> _smDescription]) --- | The response of listing active breakpoints.+-- | Response for listing active breakpoints. -- -- /See:/ 'listActiveBreakpointsResponse' smart constructor.-data ListActiveBreakpointsResponse = ListActiveBreakpointsResponse+data ListActiveBreakpointsResponse = ListActiveBreakpointsResponse'     { _labrNextWaitToken :: !(Maybe Text)     , _labrBreakpoints   :: !(Maybe [Breakpoint])+    , _labrWaitExpired   :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListActiveBreakpointsResponse' with the minimum fields required to make a request.@@ -1031,12 +1149,15 @@ -- * 'labrNextWaitToken' -- -- * 'labrBreakpoints'+--+-- * 'labrWaitExpired' listActiveBreakpointsResponse     :: ListActiveBreakpointsResponse listActiveBreakpointsResponse =-    ListActiveBreakpointsResponse+    ListActiveBreakpointsResponse'     { _labrNextWaitToken = Nothing     , _labrBreakpoints = Nothing+    , _labrWaitExpired = Nothing     }  -- | A wait token that can be used in the next method call to block until the@@ -1046,8 +1167,8 @@   = lens _labrNextWaitToken       (\ s a -> s{_labrNextWaitToken = a}) --- | List of all active breakpoints. The fields \'id\' and \'location\' are--- guranteed to be set on each breakpoint.+-- | List of all active breakpoints. The fields \`id\` and \`location\` are+-- guaranteed to be set on each breakpoint. labrBreakpoints :: Lens' ListActiveBreakpointsResponse [Breakpoint] labrBreakpoints   = lens _labrBreakpoints@@ -1055,26 +1176,83 @@       . _Default       . _Coerce +-- | The \`wait_expired\` field is set to true by the server when the request+-- times out and the field \`success_on_timeout\` is set to true.+labrWaitExpired :: Lens' ListActiveBreakpointsResponse (Maybe Bool)+labrWaitExpired+  = lens _labrWaitExpired+      (\ s a -> s{_labrWaitExpired = a})+ instance FromJSON ListActiveBreakpointsResponse where         parseJSON           = withObject "ListActiveBreakpointsResponse"               (\ o ->-                 ListActiveBreakpointsResponse <$>+                 ListActiveBreakpointsResponse' <$>                    (o .:? "nextWaitToken") <*>-                     (o .:? "breakpoints" .!= mempty))+                     (o .:? "breakpoints" .!= mempty)+                     <*> (o .:? "waitExpired"))  instance ToJSON ListActiveBreakpointsResponse where-        toJSON ListActiveBreakpointsResponse{..}+        toJSON ListActiveBreakpointsResponse'{..}           = object               (catMaybes                  [("nextWaitToken" .=) <$> _labrNextWaitToken,-                  ("breakpoints" .=) <$> _labrBreakpoints])+                  ("breakpoints" .=) <$> _labrBreakpoints,+                  ("waitExpired" .=) <$> _labrWaitExpired]) +-- | An ExtendedSourceContext is a SourceContext combined with additional+-- details describing the context.+--+-- /See:/ 'extendedSourceContext' smart constructor.+data ExtendedSourceContext = ExtendedSourceContext'+    { _escContext :: !(Maybe SourceContext)+    , _escLabels  :: !(Maybe ExtendedSourceContextLabels)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ExtendedSourceContext' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'escContext'+--+-- * 'escLabels'+extendedSourceContext+    :: ExtendedSourceContext+extendedSourceContext =+    ExtendedSourceContext'+    { _escContext = Nothing+    , _escLabels = Nothing+    }++-- | Any source context.+escContext :: Lens' ExtendedSourceContext (Maybe SourceContext)+escContext+  = lens _escContext (\ s a -> s{_escContext = a})++-- | Labels with user defined metadata.+escLabels :: Lens' ExtendedSourceContext (Maybe ExtendedSourceContextLabels)+escLabels+  = lens _escLabels (\ s a -> s{_escLabels = a})++instance FromJSON ExtendedSourceContext where+        parseJSON+          = withObject "ExtendedSourceContext"+              (\ o ->+                 ExtendedSourceContext' <$>+                   (o .:? "context") <*> (o .:? "labels"))++instance ToJSON ExtendedSourceContext where+        toJSON ExtendedSourceContext'{..}+          = object+              (catMaybes+                 [("context" .=) <$> _escContext,+                  ("labels" .=) <$> _escLabels])+ -- | A GitSourceContext denotes a particular revision in a third party Git -- repository (e.g. GitHub). -- -- /See:/ 'gitSourceContext' smart constructor.-data GitSourceContext = GitSourceContext+data GitSourceContext = GitSourceContext'     { _gURL        :: !(Maybe Text)     , _gRevisionId :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1089,7 +1267,7 @@ gitSourceContext     :: GitSourceContext gitSourceContext =-    GitSourceContext+    GitSourceContext'     { _gURL = Nothing     , _gRevisionId = Nothing     }@@ -1107,11 +1285,11 @@         parseJSON           = withObject "GitSourceContext"               (\ o ->-                 GitSourceContext <$>+                 GitSourceContext' <$>                    (o .:? "url") <*> (o .:? "revisionId"))  instance ToJSON GitSourceContext where-        toJSON GitSourceContext{..}+        toJSON GitSourceContext'{..}           = object               (catMaybes                  [("url" .=) <$> _gURL,@@ -1120,7 +1298,7 @@ -- | Represents a location in the source code. -- -- /See:/ 'sourceLocation' smart constructor.-data SourceLocation = SourceLocation+data SourceLocation = SourceLocation'     { _slPath :: !(Maybe Text)     , _slLine :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1135,17 +1313,16 @@ sourceLocation     :: SourceLocation sourceLocation =-    SourceLocation+    SourceLocation'     { _slPath = Nothing     , _slLine = Nothing     } --- | A path to the source file within the source context of the target--- binary.+-- | Path to the source file within the source context of the target binary. slPath :: Lens' SourceLocation (Maybe Text) slPath = lens _slPath (\ s a -> s{_slPath = a}) --- | The line inside the file (first line value is \'1\').+-- | Line inside the file. The first line in the file has the value \`1\`. slLine :: Lens' SourceLocation (Maybe Int32) slLine   = lens _slLine (\ s a -> s{_slLine = a}) .@@ -1155,10 +1332,11 @@         parseJSON           = withObject "SourceLocation"               (\ o ->-                 SourceLocation <$> (o .:? "path") <*> (o .:? "line"))+                 SourceLocation' <$>+                   (o .:? "path") <*> (o .:? "line"))  instance ToJSON SourceLocation where-        toJSON SourceLocation{..}+        toJSON SourceLocation'{..}           = object               (catMaybes                  [("path" .=) <$> _slPath, ("line" .=) <$> _slLine])@@ -1166,7 +1344,7 @@ -- | Represents a stack frame context. -- -- /See:/ 'stackFrame' smart constructor.-data StackFrame = StackFrame+data StackFrame = StackFrame'     { _sfFunction  :: !(Maybe Text)     , _sfLocation  :: !(Maybe SourceLocation)     , _sfArguments :: !(Maybe [Variable])@@ -1187,24 +1365,24 @@ stackFrame     :: StackFrame stackFrame =-    StackFrame+    StackFrame'     { _sfFunction = Nothing     , _sfLocation = Nothing     , _sfArguments = Nothing     , _sfLocals = Nothing     } --- | The unmangled function name at the call site.+-- | Demangled function name at the call site. sfFunction :: Lens' StackFrame (Maybe Text) sfFunction   = lens _sfFunction (\ s a -> s{_sfFunction = a}) --- | The source location of the call site.+-- | Source location of the call site. sfLocation :: Lens' StackFrame (Maybe SourceLocation) sfLocation   = lens _sfLocation (\ s a -> s{_sfLocation = a}) --- | The set of arguments passed to this function Note that this might not be+-- | Set of arguments passed to this function. Note that this might not be -- populated for all stack frames. sfArguments :: Lens' StackFrame [Variable] sfArguments@@ -1212,8 +1390,8 @@       _Default       . _Coerce --- | The set of local variables at the stack frame location. Note that this--- might not be populated for all stack frames.+-- | Set of local variables at the stack frame location. Note that this might+-- not be populated for all stack frames. sfLocals :: Lens' StackFrame [Variable] sfLocals   = lens _sfLocals (\ s a -> s{_sfLocals = a}) .@@ -1224,13 +1402,13 @@         parseJSON           = withObject "StackFrame"               (\ o ->-                 StackFrame <$>+                 StackFrame' <$>                    (o .:? "function") <*> (o .:? "location") <*>                      (o .:? "arguments" .!= mempty)                      <*> (o .:? "locals" .!= mempty))  instance ToJSON StackFrame where-        toJSON StackFrame{..}+        toJSON StackFrame'{..}           = object               (catMaybes                  [("function" .=) <$> _sfFunction,@@ -1242,10 +1420,11 @@ -- (a repo hosted by the Google Cloud Platform). -- -- /See:/ 'cloudRepoSourceContext' smart constructor.-data CloudRepoSourceContext = CloudRepoSourceContext-    { _crscRepoId     :: !(Maybe RepoId)-    , _crscAliasName  :: !(Maybe Text)-    , _crscRevisionId :: !(Maybe Text)+data CloudRepoSourceContext = CloudRepoSourceContext'+    { _crscRepoId       :: !(Maybe RepoId)+    , _crscAliasName    :: !(Maybe Text)+    , _crscRevisionId   :: !(Maybe Text)+    , _crscAliasContext :: !(Maybe AliasContext)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'CloudRepoSourceContext' with the minimum fields required to make a request.@@ -1257,13 +1436,16 @@ -- * 'crscAliasName' -- -- * 'crscRevisionId'+--+-- * 'crscAliasContext' cloudRepoSourceContext     :: CloudRepoSourceContext cloudRepoSourceContext =-    CloudRepoSourceContext+    CloudRepoSourceContext'     { _crscRepoId = Nothing     , _crscAliasName = Nothing     , _crscRevisionId = Nothing+    , _crscAliasContext = Nothing     }  -- | The ID of the repo.@@ -1283,27 +1465,35 @@   = lens _crscRevisionId       (\ s a -> s{_crscRevisionId = a}) +-- | An alias, which may be a branch or tag.+crscAliasContext :: Lens' CloudRepoSourceContext (Maybe AliasContext)+crscAliasContext+  = lens _crscAliasContext+      (\ s a -> s{_crscAliasContext = a})+ instance FromJSON CloudRepoSourceContext where         parseJSON           = withObject "CloudRepoSourceContext"               (\ o ->-                 CloudRepoSourceContext <$>+                 CloudRepoSourceContext' <$>                    (o .:? "repoId") <*> (o .:? "aliasName") <*>-                     (o .:? "revisionId"))+                     (o .:? "revisionId")+                     <*> (o .:? "aliasContext"))  instance ToJSON CloudRepoSourceContext where-        toJSON CloudRepoSourceContext{..}+        toJSON CloudRepoSourceContext'{..}           = object               (catMaybes                  [("repoId" .=) <$> _crscRepoId,                   ("aliasName" .=) <$> _crscAliasName,-                  ("revisionId" .=) <$> _crscRevisionId])+                  ("revisionId" .=) <$> _crscRevisionId,+                  ("aliasContext" .=) <$> _crscAliasContext])  -- | A set of custom debuggee properties, populated by the agent, to be -- displayed to the user. -- -- /See:/ 'debuggeeLabels' smart constructor.-newtype DebuggeeLabels = DebuggeeLabels+newtype DebuggeeLabels = DebuggeeLabels'     { _dlAddtional :: HashMap Text Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1316,7 +1506,7 @@     :: HashMap Text Text -- ^ 'dlAddtional'     -> DebuggeeLabels debuggeeLabels pDlAddtional_ =-    DebuggeeLabels+    DebuggeeLabels'     { _dlAddtional = _Coerce # pDlAddtional_     } @@ -1328,7 +1518,7 @@ instance FromJSON DebuggeeLabels where         parseJSON           = withObject "DebuggeeLabels"-              (\ o -> DebuggeeLabels <$> (parseJSONObject o))+              (\ o -> DebuggeeLabels' <$> (parseJSONObject o))  instance ToJSON DebuggeeLabels where         toJSON = toJSON . _dlAddtional@@ -1337,20 +1527,21 @@ -- more replicated processes executing the same code. Each of these -- processes is attached with a debugger agent, carrying out the debugging -- commands. The agents attached to the same debuggee are identified by--- using exactly the same fields\' values when registering.+-- using exactly the same field values when registering. -- -- /See:/ 'debuggee' smart constructor.-data Debuggee = Debuggee-    { _dStatus         :: !(Maybe StatusMessage)-    , _dUniquifier     :: !(Maybe Text)-    , _dProject        :: !(Maybe Text)-    , _dAgentVersion   :: !(Maybe Text)-    , _dIsDisabled     :: !(Maybe Bool)-    , _dId             :: !(Maybe Text)-    , _dLabels         :: !(Maybe DebuggeeLabels)-    , _dDescription    :: !(Maybe Text)-    , _dIsInactive     :: !(Maybe Bool)-    , _dSourceContexts :: !(Maybe [SourceContext])+data Debuggee = Debuggee'+    { _dStatus            :: !(Maybe StatusMessage)+    , _dUniquifier        :: !(Maybe Text)+    , _dProject           :: !(Maybe Text)+    , _dExtSourceContexts :: !(Maybe [ExtendedSourceContext])+    , _dAgentVersion      :: !(Maybe Text)+    , _dIsDisabled        :: !(Maybe Bool)+    , _dId                :: !(Maybe Text)+    , _dLabels            :: !(Maybe DebuggeeLabels)+    , _dDescription       :: !(Maybe Text)+    , _dIsInactive        :: !(Maybe Bool)+    , _dSourceContexts    :: !(Maybe [SourceContext])     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'Debuggee' with the minimum fields required to make a request.@@ -1363,6 +1554,8 @@ -- -- * 'dProject' --+-- * 'dExtSourceContexts'+-- -- * 'dAgentVersion' -- -- * 'dIsDisabled'@@ -1379,10 +1572,11 @@ debuggee     :: Debuggee debuggee =-    Debuggee+    Debuggee'     { _dStatus = Nothing     , _dUniquifier = Nothing     , _dProject = Nothing+    , _dExtSourceContexts = Nothing     , _dAgentVersion = Nothing     , _dIsDisabled = Nothing     , _dId = Nothing@@ -1393,38 +1587,49 @@     }  -- | Human readable message to be displayed to the user about this debuggee.--- Absense of this field indicates no message. The message can be either--- informational or error.+-- Absence of this field indicates no status. The message can be either+-- informational or an error status. dStatus :: Lens' Debuggee (Maybe StatusMessage) dStatus = lens _dStatus (\ s a -> s{_dStatus = a}) --- | The debuggee uniqifier within the project. Any string that id the--- application within the project can be used. Recomended to include--- environement and version or build id\'s.+-- | Debuggee uniquifier within the project. Any string that identifies the+-- application within the project can be used. Including environment and+-- version or build IDs is recommended. dUniquifier :: Lens' Debuggee (Maybe Text) dUniquifier   = lens _dUniquifier (\ s a -> s{_dUniquifier = a}) --- | The project the debuggee is associated with. Use the project number when+-- | Project the debuggee is associated with. Use the project number when -- registering a Google Cloud Platform project. dProject :: Lens' Debuggee (Maybe Text) dProject = lens _dProject (\ s a -> s{_dProject = a}) +-- | References to the locations and revisions of the source code used in the+-- deployed application. Contexts describing a remote repo related to the+-- source code have a \`category\` label of \`remote_repo\`. Source+-- snapshot source contexts have a \`category\` of \`snapshot\`.+dExtSourceContexts :: Lens' Debuggee [ExtendedSourceContext]+dExtSourceContexts+  = lens _dExtSourceContexts+      (\ s a -> s{_dExtSourceContexts = a})+      . _Default+      . _Coerce+ -- | Version ID of the agent release. The version ID is structured as--- following: \"domain\/type\/vmajor.minor\" (for example--- \"google.com\/gcp-java\/v1.1\").+-- following: \`domain\/type\/vmajor.minor\` (for example+-- \`google.com\/gcp-java\/v1.1\`). dAgentVersion :: Lens' Debuggee (Maybe Text) dAgentVersion   = lens _dAgentVersion       (\ s a -> s{_dAgentVersion = a}) --- | If set to true, indicates that the agent should disable itself and+-- | If set to \`true\`, indicates that the agent should disable itself and -- detach from the debuggee. dIsDisabled :: Lens' Debuggee (Maybe Bool) dIsDisabled   = lens _dIsDisabled (\ s a -> s{_dIsDisabled = a}) --- | Debuggee unique identifer generated by the server.+-- | Unique identifier for the debuggee generated by the controller service. dId :: Lens' Debuggee (Maybe Text) dId = lens _dId (\ s a -> s{_dId = a}) @@ -1433,20 +1638,22 @@ dLabels :: Lens' Debuggee (Maybe DebuggeeLabels) dLabels = lens _dLabels (\ s a -> s{_dLabels = a}) --- | A human readable description of the debuggee. Recommended to include--- human readable project name, environment name, and version information .+-- | Human readable description of the debuggee. Including a human-readable+-- project name, environment name and version information is recommended. dDescription :: Lens' Debuggee (Maybe Text) dDescription   = lens _dDescription (\ s a -> s{_dDescription = a}) --- | If set to true indicates that the debuggee has not been seen by the--- Controller service in the last active time period (defined by the--- server).+-- | If set to \`true\`, indicates that the debuggee is considered as+-- inactive by the Controller service. dIsInactive :: Lens' Debuggee (Maybe Bool) dIsInactive   = lens _dIsInactive (\ s a -> s{_dIsInactive = a}) --- | Repository snapshots containing the source code of the project.+-- | References to the locations and revisions of the source code used in the+-- deployed application. NOTE: This field is deprecated. Consumers should+-- use \`ext_source_contexts\` if it is not empty. Debug agents should+-- populate both this field and \`ext_source_contexts\`. dSourceContexts :: Lens' Debuggee [SourceContext] dSourceContexts   = lens _dSourceContexts@@ -1458,9 +1665,10 @@         parseJSON           = withObject "Debuggee"               (\ o ->-                 Debuggee <$>+                 Debuggee' <$>                    (o .:? "status") <*> (o .:? "uniquifier") <*>                      (o .:? "project")+                     <*> (o .:? "extSourceContexts" .!= mempty)                      <*> (o .:? "agentVersion")                      <*> (o .:? "isDisabled")                      <*> (o .:? "id")@@ -1470,12 +1678,13 @@                      <*> (o .:? "sourceContexts" .!= mempty))  instance ToJSON Debuggee where-        toJSON Debuggee{..}+        toJSON Debuggee'{..}           = object               (catMaybes                  [("status" .=) <$> _dStatus,                   ("uniquifier" .=) <$> _dUniquifier,                   ("project" .=) <$> _dProject,+                  ("extSourceContexts" .=) <$> _dExtSourceContexts,                   ("agentVersion" .=) <$> _dAgentVersion,                   ("isDisabled" .=) <$> _dIsDisabled,                   ("id" .=) <$> _dId, ("labels" .=) <$> _dLabels,@@ -1487,7 +1696,7 @@ -- snapshot. -- -- /See:/ 'cloudWorkspaceSourceContext' smart constructor.-data CloudWorkspaceSourceContext = CloudWorkspaceSourceContext+data CloudWorkspaceSourceContext = CloudWorkspaceSourceContext'     { _cwscWorkspaceId :: !(Maybe CloudWorkspaceId)     , _cwscSnapshotId  :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1502,7 +1711,7 @@ cloudWorkspaceSourceContext     :: CloudWorkspaceSourceContext cloudWorkspaceSourceContext =-    CloudWorkspaceSourceContext+    CloudWorkspaceSourceContext'     { _cwscWorkspaceId = Nothing     , _cwscSnapshotId = Nothing     }@@ -1524,20 +1733,20 @@         parseJSON           = withObject "CloudWorkspaceSourceContext"               (\ o ->-                 CloudWorkspaceSourceContext <$>+                 CloudWorkspaceSourceContext' <$>                    (o .:? "workspaceId") <*> (o .:? "snapshotId"))  instance ToJSON CloudWorkspaceSourceContext where-        toJSON CloudWorkspaceSourceContext{..}+        toJSON CloudWorkspaceSourceContext'{..}           = object               (catMaybes                  [("workspaceId" .=) <$> _cwscWorkspaceId,                   ("snapshotId" .=) <$> _cwscSnapshotId]) --- | The request to register a debuggee.+-- | Request to register a debuggee. -- -- /See:/ 'registerDebuggeeRequest' smart constructor.-newtype RegisterDebuggeeRequest = RegisterDebuggeeRequest+newtype RegisterDebuggeeRequest = RegisterDebuggeeRequest'     { _rDebuggee :: Maybe Debuggee     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1549,12 +1758,12 @@ registerDebuggeeRequest     :: RegisterDebuggeeRequest registerDebuggeeRequest =-    RegisterDebuggeeRequest+    RegisterDebuggeeRequest'     { _rDebuggee = Nothing     } --- | The debuggee information to register. The fields \'project\',--- \'uniquifier\', \'description\' and \'agent_version\' of the debuggee+-- | Debuggee information to register. The fields \`project\`,+-- \`uniquifier\`, \`description\` and \`agent_version\` of the debuggee -- must be set. rDebuggee :: Lens' RegisterDebuggeeRequest (Maybe Debuggee) rDebuggee@@ -1564,18 +1773,61 @@         parseJSON           = withObject "RegisterDebuggeeRequest"               (\ o ->-                 RegisterDebuggeeRequest <$> (o .:? "debuggee"))+                 RegisterDebuggeeRequest' <$> (o .:? "debuggee"))  instance ToJSON RegisterDebuggeeRequest where-        toJSON RegisterDebuggeeRequest{..}+        toJSON RegisterDebuggeeRequest'{..}           = object (catMaybes [("debuggee" .=) <$> _rDebuggee]) +-- | An alias to a repo revision.+--+-- /See:/ 'aliasContext' smart constructor.+data AliasContext = AliasContext'+    { _acKind :: !(Maybe Text)+    , _acName :: !(Maybe Text)+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'AliasContext' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acKind'+--+-- * 'acName'+aliasContext+    :: AliasContext+aliasContext =+    AliasContext'+    { _acKind = Nothing+    , _acName = Nothing+    }++-- | The alias kind.+acKind :: Lens' AliasContext (Maybe Text)+acKind = lens _acKind (\ s a -> s{_acKind = a})++-- | The alias name.+acName :: Lens' AliasContext (Maybe Text)+acName = lens _acName (\ s a -> s{_acName = a})++instance FromJSON AliasContext where+        parseJSON+          = withObject "AliasContext"+              (\ o ->+                 AliasContext' <$> (o .:? "kind") <*> (o .:? "name"))++instance ToJSON AliasContext where+        toJSON AliasContext'{..}+          = object+              (catMaybes+                 [("kind" .=) <$> _acKind, ("name" .=) <$> _acName])+ -- | A CloudWorkspaceId is a unique identifier for a cloud workspace. A cloud -- workspace is a place associated with a repo where modified files can be -- stored before they are committed. -- -- /See:/ 'cloudWorkspaceId' smart constructor.-data CloudWorkspaceId = CloudWorkspaceId+data CloudWorkspaceId = CloudWorkspaceId'     { _cwiRepoId :: !(Maybe RepoId)     , _cwiName   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1590,7 +1842,7 @@ cloudWorkspaceId     :: CloudWorkspaceId cloudWorkspaceId =-    CloudWorkspaceId+    CloudWorkspaceId'     { _cwiRepoId = Nothing     , _cwiName = Nothing     }@@ -1609,11 +1861,11 @@         parseJSON           = withObject "CloudWorkspaceId"               (\ o ->-                 CloudWorkspaceId <$>+                 CloudWorkspaceId' <$>                    (o .:? "repoId") <*> (o .:? "name"))  instance ToJSON CloudWorkspaceId where-        toJSON CloudWorkspaceId{..}+        toJSON CloudWorkspaceId'{..}           = object               (catMaybes                  [("repoId" .=) <$> _cwiRepoId,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.Debugger.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,22 +14,22 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List--- 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) ----- Returns the list of all active breakpoints for the specified debuggee.--- The breakpoint specification (location, condition, and expression--- fields) is semantically immutable, although the field values may change.--- For example, an agent may update the location line number to reflect the--- actual line the breakpoint was set to, but that doesn\'t change the--- breakpoint semantics. Thus, an agent does not need to check if a--- breakpoint has changed when it encounters the same breakpoint on a--- successive call. Moreover, an agent should remember breakpoints that are--- complete until the controller removes them from the active list to avoid--- setting those breakpoints again.+-- Returns the list of all active breakpoints for the debuggee. The+-- breakpoint specification (location, condition, and expression fields) is+-- semantically immutable, although the field values may change. For+-- example, an agent may update the location line number to reflect the+-- actual line where the breakpoint was set, but this doesn\'t change the+-- breakpoint semantics. This means that an agent does not need to check if+-- a breakpoint has changed when it encounters the same breakpoint on a+-- successive call. Moreover, an agent should remember the breakpoints that+-- are completed until the controller removes them from the active list to+-- avoid setting those breakpoints again. -- -- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference> for @clouddebugger.controller.debuggees.breakpoints.list@. module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.List@@ -47,6 +47,7 @@     , cdblPp     , cdblAccessToken     , cdblUploadType+    , cdblSuccessOnTimeout     , cdblBearerToken     , cdblWaitToken     , cdblDebuggeeId@@ -69,34 +70,36 @@                    QueryParam "pp" Bool :>                      QueryParam "access_token" Text :>                        QueryParam "uploadType" Text :>-                         QueryParam "bearer_token" Text :>-                           QueryParam "waitToken" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 Get '[JSON] ListActiveBreakpointsResponse+                         QueryParam "successOnTimeout" Bool :>+                           QueryParam "bearer_token" Text :>+                             QueryParam "waitToken" Text :>+                               QueryParam "callback" Text :>+                                 QueryParam "alt" AltJSON :>+                                   Get '[JSON] ListActiveBreakpointsResponse --- | Returns the list of all active breakpoints for the specified debuggee.--- The breakpoint specification (location, condition, and expression--- fields) is semantically immutable, although the field values may change.--- For example, an agent may update the location line number to reflect the--- actual line the breakpoint was set to, but that doesn\'t change the--- breakpoint semantics. Thus, an agent does not need to check if a--- breakpoint has changed when it encounters the same breakpoint on a--- successive call. Moreover, an agent should remember breakpoints that are--- complete until the controller removes them from the active list to avoid--- setting those breakpoints again.+-- | Returns the list of all active breakpoints for the debuggee. The+-- breakpoint specification (location, condition, and expression fields) is+-- semantically immutable, although the field values may change. For+-- example, an agent may update the location line number to reflect the+-- actual line where the breakpoint was set, but this doesn\'t change the+-- breakpoint semantics. This means that an agent does not need to check if+-- a breakpoint has changed when it encounters the same breakpoint on a+-- successive call. Moreover, an agent should remember the breakpoints that+-- are completed until the controller removes them from the active list to+-- avoid setting those breakpoints again. -- -- /See:/ 'controllerDebuggeesBreakpointsList' smart constructor.-data ControllerDebuggeesBreakpointsList = ControllerDebuggeesBreakpointsList-    { _cdblXgafv          :: !(Maybe Text)-    , _cdblUploadProtocol :: !(Maybe Text)-    , _cdblPp             :: !Bool-    , _cdblAccessToken    :: !(Maybe Text)-    , _cdblUploadType     :: !(Maybe Text)-    , _cdblBearerToken    :: !(Maybe Text)-    , _cdblWaitToken      :: !(Maybe Text)-    , _cdblDebuggeeId     :: !Text-    , _cdblCallback       :: !(Maybe Text)+data ControllerDebuggeesBreakpointsList = ControllerDebuggeesBreakpointsList'+    { _cdblXgafv            :: !(Maybe Text)+    , _cdblUploadProtocol   :: !(Maybe Text)+    , _cdblPp               :: !Bool+    , _cdblAccessToken      :: !(Maybe Text)+    , _cdblUploadType       :: !(Maybe Text)+    , _cdblSuccessOnTimeout :: !(Maybe Bool)+    , _cdblBearerToken      :: !(Maybe Text)+    , _cdblWaitToken        :: !(Maybe Text)+    , _cdblDebuggeeId       :: !Text+    , _cdblCallback         :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'ControllerDebuggeesBreakpointsList' with the minimum fields required to make a request.@@ -113,6 +116,8 @@ -- -- * 'cdblUploadType' --+-- * 'cdblSuccessOnTimeout'+-- -- * 'cdblBearerToken' -- -- * 'cdblWaitToken'@@ -124,12 +129,13 @@     :: Text -- ^ 'cdblDebuggeeId'     -> ControllerDebuggeesBreakpointsList controllerDebuggeesBreakpointsList pCdblDebuggeeId_ =-    ControllerDebuggeesBreakpointsList+    ControllerDebuggeesBreakpointsList'     { _cdblXgafv = Nothing     , _cdblUploadProtocol = Nothing     , _cdblPp = True     , _cdblAccessToken = Nothing     , _cdblUploadType = Nothing+    , _cdblSuccessOnTimeout = Nothing     , _cdblBearerToken = Nothing     , _cdblWaitToken = Nothing     , _cdblDebuggeeId = pCdblDebuggeeId_@@ -163,6 +169,16 @@   = lens _cdblUploadType       (\ s a -> s{_cdblUploadType = a}) +-- | If set to \`true\`, returns \`google.rpc.Code.OK\` status and sets the+-- \`wait_expired\` response field to \`true\` when the server-selected+-- timeout has expired (recommended). If set to \`false\`, returns+-- \`google.rpc.Code.ABORTED\` status when the server-selected timeout has+-- expired (deprecated).+cdblSuccessOnTimeout :: Lens' ControllerDebuggeesBreakpointsList (Maybe Bool)+cdblSuccessOnTimeout+  = lens _cdblSuccessOnTimeout+      (\ s a -> s{_cdblSuccessOnTimeout = a})+ -- | OAuth bearer token. cdblBearerToken :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) cdblBearerToken@@ -171,9 +187,7 @@  -- | A wait token that, if specified, blocks the method call until the list -- of active breakpoints has changed, or a server selected timeout has--- expired. The value should be set from the last returned response. The--- error code google.rpc.Code.ABORTED is returned on wait timeout (which--- does not require the agent to re-register with the server)+-- expired. The value should be set from the last returned response. cdblWaitToken :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) cdblWaitToken   = lens _cdblWaitToken@@ -194,11 +208,15 @@          ControllerDebuggeesBreakpointsList where         type Rs ControllerDebuggeesBreakpointsList =              ListActiveBreakpointsResponse-        requestClient ControllerDebuggeesBreakpointsList{..}+        type Scopes ControllerDebuggeesBreakpointsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugletcontroller"]+        requestClient ControllerDebuggeesBreakpointsList'{..}           = go _cdblDebuggeeId _cdblXgafv _cdblUploadProtocol               (Just _cdblPp)               _cdblAccessToken               _cdblUploadType+              _cdblSuccessOnTimeout               _cdblBearerToken               _cdblWaitToken               _cdblCallback

@@ -14,18 +14,18 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Breakpoints.Update--- 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) -- -- Updates the breakpoint state or mutable fields. The entire Breakpoint--- protobuf must be sent back to the controller. Updates to active+-- message must be sent back to the controller service. Updates to active -- breakpoint fields are only allowed if the new value does not change the--- breakpoint specification. Updates to the \'location\', \'condition\' and--- \'expression\' fields should not alter the breakpoint semantics. They--- are restricted to changes such as canonicalizing a value or snapping the+-- breakpoint specification. Updates to the \`location\`, \`condition\` and+-- \`expression\` fields should not alter the breakpoint semantics. These+-- may only make changes such as canonicalizing a value or snapping the -- location to the correct line of code. -- -- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference> for @clouddebugger.controller.debuggees.breakpoints.update@.@@ -75,15 +75,15 @@                                    :> Put '[JSON] UpdateActiveBreakpointResponse  -- | Updates the breakpoint state or mutable fields. The entire Breakpoint--- protobuf must be sent back to the controller. Updates to active+-- message must be sent back to the controller service. Updates to active -- breakpoint fields are only allowed if the new value does not change the--- breakpoint specification. Updates to the \'location\', \'condition\' and--- \'expression\' fields should not alter the breakpoint semantics. They--- are restricted to changes such as canonicalizing a value or snapping the+-- breakpoint specification. Updates to the \`location\`, \`condition\` and+-- \`expression\` fields should not alter the breakpoint semantics. These+-- may only make changes such as canonicalizing a value or snapping the -- location to the correct line of code. -- -- /See:/ 'controllerDebuggeesBreakpointsUpdate' smart constructor.-data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate+data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate'     { _cdbuXgafv          :: !(Maybe Text)     , _cdbuUploadProtocol :: !(Maybe Text)     , _cdbuPp             :: !Bool@@ -125,7 +125,7 @@     -> Text -- ^ 'cdbuDebuggeeId'     -> ControllerDebuggeesBreakpointsUpdate controllerDebuggeesBreakpointsUpdate pCdbuPayload_ pCdbuId_ pCdbuDebuggeeId_ =-    ControllerDebuggeesBreakpointsUpdate+    ControllerDebuggeesBreakpointsUpdate'     { _cdbuXgafv = Nothing     , _cdbuUploadProtocol = Nothing     , _cdbuPp = True@@ -195,8 +195,11 @@          ControllerDebuggeesBreakpointsUpdate where         type Rs ControllerDebuggeesBreakpointsUpdate =              UpdateActiveBreakpointResponse+        type Scopes ControllerDebuggeesBreakpointsUpdate =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugletcontroller"]         requestClient-          ControllerDebuggeesBreakpointsUpdate{..}+          ControllerDebuggeesBreakpointsUpdate'{..}           = go _cdbuDebuggeeId _cdbuId _cdbuXgafv               _cdbuUploadProtocol               (Just _cdbuPp)

@@ -14,19 +14,20 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register--- 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) ----- Registers the debuggee with the controller. All agents should call this--- API with the same request content to get back the same stable--- \'debuggee_id\'. Agents should call this API again whenever--- ListActiveBreakpoints or UpdateActiveBreakpoint return the error--- google.rpc.Code.NOT_FOUND. It allows the server to disable the agent or--- recover from any registration loss. If the debuggee is disabled server,--- the response will have is_disabled\' set to true.+-- Registers the debuggee with the controller service. All agents attached+-- to the same application should call this method with the same request+-- content to get back the same stable \`debuggee_id\`. Agents should call+-- this method again whenever \`google.rpc.Code.NOT_FOUND\` is returned+-- from any controller method. This allows the controller service to+-- disable the agent or recover from any data loss. If the debuggee is+-- disabled by the server, the response will have \`is_disabled\` set to+-- \`true\`. -- -- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference> for @clouddebugger.controller.debuggees.register@. module Network.Google.Resource.CloudDebugger.Controller.Debuggees.Register@@ -70,16 +71,17 @@                              ReqBody '[JSON] RegisterDebuggeeRequest :>                                Post '[JSON] RegisterDebuggeeResponse --- | Registers the debuggee with the controller. All agents should call this--- API with the same request content to get back the same stable--- \'debuggee_id\'. Agents should call this API again whenever--- ListActiveBreakpoints or UpdateActiveBreakpoint return the error--- google.rpc.Code.NOT_FOUND. It allows the server to disable the agent or--- recover from any registration loss. If the debuggee is disabled server,--- the response will have is_disabled\' set to true.+-- | Registers the debuggee with the controller service. All agents attached+-- to the same application should call this method with the same request+-- content to get back the same stable \`debuggee_id\`. Agents should call+-- this method again whenever \`google.rpc.Code.NOT_FOUND\` is returned+-- from any controller method. This allows the controller service to+-- disable the agent or recover from any data loss. If the debuggee is+-- disabled by the server, the response will have \`is_disabled\` set to+-- \`true\`. -- -- /See:/ 'controllerDebuggeesRegister' smart constructor.-data ControllerDebuggeesRegister = ControllerDebuggeesRegister+data ControllerDebuggeesRegister = ControllerDebuggeesRegister'     { _cdrXgafv          :: !(Maybe Text)     , _cdrUploadProtocol :: !(Maybe Text)     , _cdrPp             :: !Bool@@ -113,7 +115,7 @@     :: RegisterDebuggeeRequest -- ^ 'cdrPayload'     -> ControllerDebuggeesRegister controllerDebuggeesRegister pCdrPayload_ =-    ControllerDebuggeesRegister+    ControllerDebuggeesRegister'     { _cdrXgafv = Nothing     , _cdrUploadProtocol = Nothing     , _cdrPp = True@@ -170,7 +172,10 @@          where         type Rs ControllerDebuggeesRegister =              RegisterDebuggeeResponse-        requestClient ControllerDebuggeesRegister{..}+        type Scopes ControllerDebuggeesRegister =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugletcontroller"]+        requestClient ControllerDebuggeesRegister'{..}           = go _cdrXgafv _cdrUploadProtocol (Just _cdrPp)               _cdrAccessToken               _cdrUploadType

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Delete--- 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@@ -41,6 +41,7 @@     , ddbdBreakpointId     , ddbdBearerToken     , ddbdDebuggeeId+    , ddbdClientVersion     , ddbdCallback     ) where @@ -62,13 +63,15 @@                        QueryParam "access_token" Text :>                          QueryParam "uploadType" Text :>                            QueryParam "bearer_token" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :> Delete '[JSON] Empty+                             QueryParam "clientVersion" Text :>+                               QueryParam "callback" Text :>+                                 QueryParam "alt" AltJSON :>+                                   Delete '[JSON] Empty  -- | Deletes the breakpoint from the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsDelete' smart constructor.-data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete+data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete'     { _ddbdXgafv          :: !(Maybe Text)     , _ddbdUploadProtocol :: !(Maybe Text)     , _ddbdPp             :: !Bool@@ -77,6 +80,7 @@     , _ddbdBreakpointId   :: !Text     , _ddbdBearerToken    :: !(Maybe Text)     , _ddbdDebuggeeId     :: !Text+    , _ddbdClientVersion  :: !(Maybe Text)     , _ddbdCallback       :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -100,13 +104,15 @@ -- -- * 'ddbdDebuggeeId' --+-- * 'ddbdClientVersion'+-- -- * 'ddbdCallback' debuggerDebuggeesBreakpointsDelete     :: Text -- ^ 'ddbdBreakpointId'     -> Text -- ^ 'ddbdDebuggeeId'     -> DebuggerDebuggeesBreakpointsDelete debuggerDebuggeesBreakpointsDelete pDdbdBreakpointId_ pDdbdDebuggeeId_ =-    DebuggerDebuggeesBreakpointsDelete+    DebuggerDebuggeesBreakpointsDelete'     { _ddbdXgafv = Nothing     , _ddbdUploadProtocol = Nothing     , _ddbdPp = True@@ -115,6 +121,7 @@     , _ddbdBreakpointId = pDdbdBreakpointId_     , _ddbdBearerToken = Nothing     , _ddbdDebuggeeId = pDdbdDebuggeeId_+    , _ddbdClientVersion = Nothing     , _ddbdCallback = Nothing     } @@ -145,7 +152,7 @@   = lens _ddbdUploadType       (\ s a -> s{_ddbdUploadType = a}) --- | The breakpoint to delete.+-- | ID of the breakpoint to delete. ddbdBreakpointId :: Lens' DebuggerDebuggeesBreakpointsDelete Text ddbdBreakpointId   = lens _ddbdBreakpointId@@ -157,12 +164,19 @@   = lens _ddbdBearerToken       (\ s a -> s{_ddbdBearerToken = a}) --- | The debuggee id to delete the breakpoint from.+-- | ID of the debuggee whose breakpoint to delete. ddbdDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsDelete Text ddbdDebuggeeId   = lens _ddbdDebuggeeId       (\ s a -> s{_ddbdDebuggeeId = a}) +-- | The client version making the call. Following: \`domain\/type\/version\`+-- (e.g., \`google.com\/intellij\/v1\`).+ddbdClientVersion :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text)+ddbdClientVersion+  = lens _ddbdClientVersion+      (\ s a -> s{_ddbdClientVersion = a})+ -- | JSONP ddbdCallback :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) ddbdCallback@@ -171,13 +185,17 @@ instance GoogleRequest          DebuggerDebuggeesBreakpointsDelete where         type Rs DebuggerDebuggeesBreakpointsDelete = Empty-        requestClient DebuggerDebuggeesBreakpointsDelete{..}+        type Scopes DebuggerDebuggeesBreakpointsDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugger"]+        requestClient DebuggerDebuggeesBreakpointsDelete'{..}           = go _ddbdDebuggeeId _ddbdBreakpointId _ddbdXgafv               _ddbdUploadProtocol               (Just _ddbdPp)               _ddbdAccessToken               _ddbdUploadType               _ddbdBearerToken+              _ddbdClientVersion               _ddbdCallback               (Just AltJSON)               debuggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Get--- 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@@ -41,6 +41,7 @@     , ddbgBreakpointId     , ddbgBearerToken     , ddbgDebuggeeId+    , ddbgClientVersion     , ddbgCallback     ) where @@ -62,14 +63,15 @@                        QueryParam "access_token" Text :>                          QueryParam "uploadType" Text :>                            QueryParam "bearer_token" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 Get '[JSON] GetBreakpointResponse+                             QueryParam "clientVersion" Text :>+                               QueryParam "callback" Text :>+                                 QueryParam "alt" AltJSON :>+                                   Get '[JSON] GetBreakpointResponse  -- | Gets breakpoint information. -- -- /See:/ 'debuggerDebuggeesBreakpointsGet' smart constructor.-data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet+data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet'     { _ddbgXgafv          :: !(Maybe Text)     , _ddbgUploadProtocol :: !(Maybe Text)     , _ddbgPp             :: !Bool@@ -78,6 +80,7 @@     , _ddbgBreakpointId   :: !Text     , _ddbgBearerToken    :: !(Maybe Text)     , _ddbgDebuggeeId     :: !Text+    , _ddbgClientVersion  :: !(Maybe Text)     , _ddbgCallback       :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -101,13 +104,15 @@ -- -- * 'ddbgDebuggeeId' --+-- * 'ddbgClientVersion'+-- -- * 'ddbgCallback' debuggerDebuggeesBreakpointsGet     :: Text -- ^ 'ddbgBreakpointId'     -> Text -- ^ 'ddbgDebuggeeId'     -> DebuggerDebuggeesBreakpointsGet debuggerDebuggeesBreakpointsGet pDdbgBreakpointId_ pDdbgDebuggeeId_ =-    DebuggerDebuggeesBreakpointsGet+    DebuggerDebuggeesBreakpointsGet'     { _ddbgXgafv = Nothing     , _ddbgUploadProtocol = Nothing     , _ddbgPp = True@@ -116,6 +121,7 @@     , _ddbgBreakpointId = pDdbgBreakpointId_     , _ddbgBearerToken = Nothing     , _ddbgDebuggeeId = pDdbgDebuggeeId_+    , _ddbgClientVersion = Nothing     , _ddbgCallback = Nothing     } @@ -146,7 +152,7 @@   = lens _ddbgUploadType       (\ s a -> s{_ddbgUploadType = a}) --- | The breakpoint to get.+-- | ID of the breakpoint to get. ddbgBreakpointId :: Lens' DebuggerDebuggeesBreakpointsGet Text ddbgBreakpointId   = lens _ddbgBreakpointId@@ -158,12 +164,19 @@   = lens _ddbgBearerToken       (\ s a -> s{_ddbgBearerToken = a}) --- | The debuggee id to get the breakpoint from.+-- | ID of the debuggee whose breakpoint to get. ddbgDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsGet Text ddbgDebuggeeId   = lens _ddbgDebuggeeId       (\ s a -> s{_ddbgDebuggeeId = a}) +-- | The client version making the call. Following: \`domain\/type\/version\`+-- (e.g., \`google.com\/intellij\/v1\`).+ddbgClientVersion :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text)+ddbgClientVersion+  = lens _ddbgClientVersion+      (\ s a -> s{_ddbgClientVersion = a})+ -- | JSONP ddbgCallback :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) ddbgCallback@@ -173,13 +186,17 @@          DebuggerDebuggeesBreakpointsGet where         type Rs DebuggerDebuggeesBreakpointsGet =              GetBreakpointResponse-        requestClient DebuggerDebuggeesBreakpointsGet{..}+        type Scopes DebuggerDebuggeesBreakpointsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugger"]+        requestClient DebuggerDebuggeesBreakpointsGet'{..}           = go _ddbgDebuggeeId _ddbgBreakpointId _ddbgXgafv               _ddbgUploadProtocol               (Just _ddbgPp)               _ddbgAccessToken               _ddbgUploadType               _ddbgBearerToken+              _ddbgClientVersion               _ddbgCallback               (Just AltJSON)               debuggerService

@@ -14,13 +14,13 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List--- 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) ----- Lists all breakpoints of the debuggee that the user has access to.+-- Lists all breakpoints for the debuggee. -- -- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference> for @clouddebugger.debugger.debuggees.breakpoints.list@. module Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.List@@ -45,6 +45,7 @@     , ddblIncludeAllUsers     , ddblWaitToken     , ddblDebuggeeId+    , ddblClientVersion     , ddblCallback     ) where @@ -70,14 +71,15 @@                                QueryParam "bearer_token" Text :>                                  QueryParam "includeAllUsers" Bool :>                                    QueryParam "waitToken" Text :>-                                     QueryParam "callback" Text :>-                                       QueryParam "alt" AltJSON :>-                                         Get '[JSON] ListBreakpointsResponse+                                     QueryParam "clientVersion" Text :>+                                       QueryParam "callback" Text :>+                                         QueryParam "alt" AltJSON :>+                                           Get '[JSON] ListBreakpointsResponse --- | Lists all breakpoints of the debuggee that the user has access to.+-- | Lists all breakpoints for the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsList' smart constructor.-data DebuggerDebuggeesBreakpointsList = DebuggerDebuggeesBreakpointsList+data DebuggerDebuggeesBreakpointsList = DebuggerDebuggeesBreakpointsList'     { _ddblXgafv           :: !(Maybe Text)     , _ddblIncludeInactive :: !(Maybe Bool)     , _ddblUploadProtocol  :: !(Maybe Text)@@ -90,6 +92,7 @@     , _ddblIncludeAllUsers :: !(Maybe Bool)     , _ddblWaitToken       :: !(Maybe Text)     , _ddblDebuggeeId      :: !Text+    , _ddblClientVersion   :: !(Maybe Text)     , _ddblCallback        :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -121,12 +124,14 @@ -- -- * 'ddblDebuggeeId' --+-- * 'ddblClientVersion'+-- -- * 'ddblCallback' debuggerDebuggeesBreakpointsList     :: Text -- ^ 'ddblDebuggeeId'     -> DebuggerDebuggeesBreakpointsList debuggerDebuggeesBreakpointsList pDdblDebuggeeId_ =-    DebuggerDebuggeesBreakpointsList+    DebuggerDebuggeesBreakpointsList'     { _ddblXgafv = Nothing     , _ddblIncludeInactive = Nothing     , _ddblUploadProtocol = Nothing@@ -139,6 +144,7 @@     , _ddblIncludeAllUsers = Nothing     , _ddblWaitToken = Nothing     , _ddblDebuggeeId = pDdblDebuggeeId_+    , _ddblClientVersion = Nothing     , _ddblCallback = Nothing     } @@ -147,8 +153,8 @@ ddblXgafv   = lens _ddblXgafv (\ s a -> s{_ddblXgafv = a}) --- | When set to true the response includes active and inactive breakpoints,--- otherwise only active breakpoints are returned.+-- | When set to \`true\`, the response includes active and inactive+-- breakpoints. Otherwise, it includes only active breakpoints. ddblIncludeInactive :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) ddblIncludeInactive   = lens _ddblIncludeInactive@@ -182,8 +188,9 @@   = lens _ddblUploadType       (\ s a -> s{_ddblUploadType = a}) --- | When set to true the response breakpoints will be stripped of the--- results fields: stack_frames, evaluated_expressions and variable_table.+-- | When set to \`true\`, the response breakpoints are stripped of the+-- results fields: \`stack_frames\`, \`evaluated_expressions\` and+-- \`variable_table\`. ddblStripResults :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) ddblStripResults   = lens _ddblStripResults@@ -195,8 +202,8 @@   = lens _ddblBearerToken       (\ s a -> s{_ddblBearerToken = a}) --- | When set to true the response includes the list of breakpoints set by--- any user, otherwise only breakpoints set by the caller.+-- | When set to \`true\`, the response includes the list of breakpoints set+-- by any user. Otherwise, it includes only breakpoints set by the caller. ddblIncludeAllUsers :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) ddblIncludeAllUsers   = lens _ddblIncludeAllUsers@@ -204,20 +211,27 @@  -- | A wait token that, if specified, blocks the call until the breakpoints -- list has changed, or a server selected timeout has expired. The value--- should be set from the last response to ListBreakpoints. The error code--- ABORTED is returned on wait timeout, which should be called again with--- the same wait_token.+-- should be set from the last response. The error code+-- \`google.rpc.Code.ABORTED\` (RPC) is returned on wait timeout, which+-- should be called again with the same \`wait_token\`. ddblWaitToken :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) ddblWaitToken   = lens _ddblWaitToken       (\ s a -> s{_ddblWaitToken = a}) --- | The debuggee id to list breakpoint from.+-- | ID of the debuggee whose breakpoints to list. ddblDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsList Text ddblDebuggeeId   = lens _ddblDebuggeeId       (\ s a -> s{_ddblDebuggeeId = a}) +-- | The client version making the call. Following: \`domain\/type\/version\`+-- (e.g., \`google.com\/intellij\/v1\`).+ddblClientVersion :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text)+ddblClientVersion+  = lens _ddblClientVersion+      (\ s a -> s{_ddblClientVersion = a})+ -- | JSONP ddblCallback :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) ddblCallback@@ -227,7 +241,10 @@          DebuggerDebuggeesBreakpointsList where         type Rs DebuggerDebuggeesBreakpointsList =              ListBreakpointsResponse-        requestClient DebuggerDebuggeesBreakpointsList{..}+        type Scopes DebuggerDebuggeesBreakpointsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugger"]+        requestClient DebuggerDebuggeesBreakpointsList'{..}           = go _ddblDebuggeeId _ddblXgafv _ddblIncludeInactive               _ddblUploadProtocol               (Just _ddblPp)@@ -238,6 +255,7 @@               _ddblBearerToken               _ddblIncludeAllUsers               _ddblWaitToken+              _ddblClientVersion               _ddblCallback               (Just AltJSON)               debuggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.Breakpoints.Set--- 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@@ -41,6 +41,7 @@     , ddbsPayload     , ddbsBearerToken     , ddbsDebuggeeId+    , ddbsClientVersion     , ddbsCallback     ) where @@ -62,15 +63,16 @@                        QueryParam "access_token" Text :>                          QueryParam "uploadType" Text :>                            QueryParam "bearer_token" Text :>-                             QueryParam "callback" Text :>-                               QueryParam "alt" AltJSON :>-                                 ReqBody '[JSON] Breakpoint :>-                                   Post '[JSON] SetBreakpointResponse+                             QueryParam "clientVersion" Text :>+                               QueryParam "callback" Text :>+                                 QueryParam "alt" AltJSON :>+                                   ReqBody '[JSON] Breakpoint :>+                                     Post '[JSON] SetBreakpointResponse  -- | Sets the breakpoint to the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsSet' smart constructor.-data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet+data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet'     { _ddbsXgafv          :: !(Maybe Text)     , _ddbsUploadProtocol :: !(Maybe Text)     , _ddbsPp             :: !Bool@@ -79,6 +81,7 @@     , _ddbsPayload        :: !Breakpoint     , _ddbsBearerToken    :: !(Maybe Text)     , _ddbsDebuggeeId     :: !Text+    , _ddbsClientVersion  :: !(Maybe Text)     , _ddbsCallback       :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -102,13 +105,15 @@ -- -- * 'ddbsDebuggeeId' --+-- * 'ddbsClientVersion'+-- -- * 'ddbsCallback' debuggerDebuggeesBreakpointsSet     :: Breakpoint -- ^ 'ddbsPayload'     -> Text -- ^ 'ddbsDebuggeeId'     -> DebuggerDebuggeesBreakpointsSet debuggerDebuggeesBreakpointsSet pDdbsPayload_ pDdbsDebuggeeId_ =-    DebuggerDebuggeesBreakpointsSet+    DebuggerDebuggeesBreakpointsSet'     { _ddbsXgafv = Nothing     , _ddbsUploadProtocol = Nothing     , _ddbsPp = True@@ -117,6 +122,7 @@     , _ddbsPayload = pDdbsPayload_     , _ddbsBearerToken = Nothing     , _ddbsDebuggeeId = pDdbsDebuggeeId_+    , _ddbsClientVersion = Nothing     , _ddbsCallback = Nothing     } @@ -158,12 +164,19 @@   = lens _ddbsBearerToken       (\ s a -> s{_ddbsBearerToken = a}) --- | The debuggee id to set the breakpoint to.+-- | ID of the debuggee where the breakpoint is to be set. ddbsDebuggeeId :: Lens' DebuggerDebuggeesBreakpointsSet Text ddbsDebuggeeId   = lens _ddbsDebuggeeId       (\ s a -> s{_ddbsDebuggeeId = a}) +-- | The client version making the call. Following: \`domain\/type\/version\`+-- (e.g., \`google.com\/intellij\/v1\`).+ddbsClientVersion :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text)+ddbsClientVersion+  = lens _ddbsClientVersion+      (\ s a -> s{_ddbsClientVersion = a})+ -- | JSONP ddbsCallback :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) ddbsCallback@@ -173,12 +186,16 @@          DebuggerDebuggeesBreakpointsSet where         type Rs DebuggerDebuggeesBreakpointsSet =              SetBreakpointResponse-        requestClient DebuggerDebuggeesBreakpointsSet{..}+        type Scopes DebuggerDebuggeesBreakpointsSet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugger"]+        requestClient DebuggerDebuggeesBreakpointsSet'{..}           = go _ddbsDebuggeeId _ddbsXgafv _ddbsUploadProtocol               (Just _ddbsPp)               _ddbsAccessToken               _ddbsUploadType               _ddbsBearerToken+              _ddbsClientVersion               _ddbsCallback               (Just AltJSON)               _ddbsPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudDebugger.Debugger.Debuggees.List--- 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@@ -41,6 +41,7 @@     , ddlAccessToken     , ddlUploadType     , ddlBearerToken+    , ddlClientVersion     , ddlCallback     ) where @@ -61,14 +62,15 @@                      QueryParam "access_token" Text :>                        QueryParam "uploadType" Text :>                          QueryParam "bearer_token" Text :>-                           QueryParam "callback" Text :>-                             QueryParam "alt" AltJSON :>-                               Get '[JSON] ListDebuggeesResponse+                           QueryParam "clientVersion" Text :>+                             QueryParam "callback" Text :>+                               QueryParam "alt" AltJSON :>+                                 Get '[JSON] ListDebuggeesResponse  -- | Lists all the debuggees that the user can set breakpoints to. -- -- /See:/ 'debuggerDebuggeesList' smart constructor.-data DebuggerDebuggeesList = DebuggerDebuggeesList+data DebuggerDebuggeesList = DebuggerDebuggeesList'     { _ddlXgafv           :: !(Maybe Text)     , _ddlIncludeInactive :: !(Maybe Bool)     , _ddlUploadProtocol  :: !(Maybe Text)@@ -77,6 +79,7 @@     , _ddlAccessToken     :: !(Maybe Text)     , _ddlUploadType      :: !(Maybe Text)     , _ddlBearerToken     :: !(Maybe Text)+    , _ddlClientVersion   :: !(Maybe Text)     , _ddlCallback        :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -100,11 +103,13 @@ -- -- * 'ddlBearerToken' --+-- * 'ddlClientVersion'+-- -- * 'ddlCallback' debuggerDebuggeesList     :: DebuggerDebuggeesList debuggerDebuggeesList =-    DebuggerDebuggeesList+    DebuggerDebuggeesList'     { _ddlXgafv = Nothing     , _ddlIncludeInactive = Nothing     , _ddlUploadProtocol = Nothing@@ -113,6 +118,7 @@     , _ddlAccessToken = Nothing     , _ddlUploadType = Nothing     , _ddlBearerToken = Nothing+    , _ddlClientVersion = Nothing     , _ddlCallback = Nothing     } @@ -120,8 +126,8 @@ ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Text) ddlXgafv = lens _ddlXgafv (\ s a -> s{_ddlXgafv = a}) --- | When set to true the result includes all debuggees, otherwise only--- debugees that are active.+-- | When set to \`true\`, the result includes all debuggees. Otherwise, the+-- result includes only debuggees that are active. ddlIncludeInactive :: Lens' DebuggerDebuggeesList (Maybe Bool) ddlIncludeInactive   = lens _ddlIncludeInactive@@ -133,8 +139,7 @@   = lens _ddlUploadProtocol       (\ s a -> s{_ddlUploadProtocol = a}) --- | Set to the project number of the Google Cloud Platform to list the--- debuggees that are part of that project.+-- | Project number of a Google Cloud project whose debuggees to list. ddlProject :: Lens' DebuggerDebuggeesList (Maybe Text) ddlProject   = lens _ddlProject (\ s a -> s{_ddlProject = a})@@ -161,6 +166,13 @@   = lens _ddlBearerToken       (\ s a -> s{_ddlBearerToken = a}) +-- | The client version making the call. Following: \`domain\/type\/version\`+-- (e.g., \`google.com\/intellij\/v1\`).+ddlClientVersion :: Lens' DebuggerDebuggeesList (Maybe Text)+ddlClientVersion+  = lens _ddlClientVersion+      (\ s a -> s{_ddlClientVersion = a})+ -- | JSONP ddlCallback :: Lens' DebuggerDebuggeesList (Maybe Text) ddlCallback@@ -168,13 +180,17 @@  instance GoogleRequest DebuggerDebuggeesList where         type Rs DebuggerDebuggeesList = ListDebuggeesResponse-        requestClient DebuggerDebuggeesList{..}+        type Scopes DebuggerDebuggeesList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud_debugger"]+        requestClient DebuggerDebuggeesList'{..}           = go _ddlXgafv _ddlIncludeInactive _ddlUploadProtocol               _ddlProject               (Just _ddlPp)               _ddlAccessToken               _ddlUploadType               _ddlBearerToken+              _ddlClientVersion               _ddlCallback               (Just AltJSON)               debuggerService

@@ -1,5 +1,5 @@ name:                  gogol-debugger-version:               0.0.1+version:               0.1.0 synopsis:              Google Cloud Debugger SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,15 +7,15 @@ 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:-    Lets you examine the stack and variables of your running application-    without stopping or slowing it down.+    Examines the call stack and variables of a running application without+    stopping or slowing it down.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -50,5 +50,5 @@         , Network.Google.Debugger.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5