diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/Debugger.hs b/gen/Network/Google/Debugger.hs --- a/gen/Network/Google/Debugger.hs +++ b/gen/Network/Google/Debugger.hs @@ -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 -- 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:/ 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 diff --git a/gen/Network/Google/Debugger/Types.hs b/gen/Network/Google/Debugger/Types.hs --- a/gen/Network/Google/Debugger/Types.hs +++ b/gen/Network/Google/Debugger/Types.hs @@ -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 -- 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; diff --git a/gen/Network/Google/Debugger/Types/Product.hs b/gen/Network/Google/Debugger/Types/Product.hs --- a/gen/Network/Google/Debugger/Types/Product.hs +++ b/gen/Network/Google/Debugger/Types/Product.hs @@ -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 -- 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, diff --git a/gen/Network/Google/Debugger/Types/Sum.hs b/gen/Network/Google/Debugger/Types/Sum.hs --- a/gen/Network/Google/Debugger/Types/Sum.hs +++ b/gen/Network/Google/Debugger/Types/Sum.hs @@ -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 -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs @@ -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 -- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs @@ -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 -- 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:/ 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) diff --git a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs --- a/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs @@ -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 -- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs @@ -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 -- 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:/ 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs --- a/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs +++ b/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs @@ -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 -- 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 diff --git a/gogol-debugger.cabal b/gogol-debugger.cabal --- a/gogol-debugger.cabal +++ b/gogol-debugger.cabal @@ -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 -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