packages feed

gogol-debugger 0.4.0 → 0.5.0

raw patch · 12 files changed

+284/−192 lines, 12 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/Debugger/Types.hs view
@@ -257,8 +257,8 @@  -- | Use Stackdriver Debugger cloudDebuggerScope :: Proxy '["https://www.googleapis.com/auth/cloud_debugger"]-cloudDebuggerScope = Proxy;+cloudDebuggerScope = Proxy  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy
gen/Network/Google/Debugger/Types/Product.hs view
@@ -23,10 +23,13 @@ -- | Response for registering a debuggee. -- -- /See:/ 'registerDebuggeeResponse' smart constructor.-newtype RegisterDebuggeeResponse = RegisterDebuggeeResponse'+newtype RegisterDebuggeeResponse =+  RegisterDebuggeeResponse'     { _rdrDebuggee :: Maybe Debuggee-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDebuggeeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -34,11 +37,9 @@ -- * 'rdrDebuggee' registerDebuggeeResponse     :: RegisterDebuggeeResponse-registerDebuggeeResponse =-    RegisterDebuggeeResponse'-    { _rdrDebuggee = Nothing-    }+registerDebuggeeResponse = RegisterDebuggeeResponse' {_rdrDebuggee = Nothing} + -- | Debuggee resource. The field \`id\` is guaranteed to be set (in addition -- to the echoed fields). If the field \`is_disabled\` is set to \`true\`, -- the agent should disable itself by removing all breakpoints and@@ -64,13 +65,16 @@ -- directory. -- -- /See:/ 'sourceContext' smart constructor.-data SourceContext = SourceContext'+data SourceContext =+  SourceContext'     { _scCloudWorkspace :: !(Maybe CloudWorkspaceSourceContext)     , _scCloudRepo      :: !(Maybe CloudRepoSourceContext)     , _scGerrit         :: !(Maybe GerritSourceContext)     , _scGit            :: !(Maybe GitSourceContext)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,13 +89,14 @@ sourceContext     :: SourceContext sourceContext =-    SourceContext'+  SourceContext'     { _scCloudWorkspace = Nothing     , _scCloudRepo = Nothing     , _scGerrit = Nothing     , _scGit = Nothing     } + -- | A SourceContext referring to a snapshot in a cloud workspace. scCloudWorkspace :: Lens' SourceContext (Maybe CloudWorkspaceSourceContext) scCloudWorkspace@@ -131,10 +136,13 @@ -- | Response for setting a breakpoint. -- -- /See:/ 'setBreakpointResponse' smart constructor.-newtype SetBreakpointResponse = SetBreakpointResponse'+newtype SetBreakpointResponse =+  SetBreakpointResponse'     { _sbrBreakpoint :: Maybe Breakpoint-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetBreakpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,11 +150,9 @@ -- * 'sbrBreakpoint' setBreakpointResponse     :: SetBreakpointResponse-setBreakpointResponse =-    SetBreakpointResponse'-    { _sbrBreakpoint = Nothing-    }+setBreakpointResponse = SetBreakpointResponse' {_sbrBreakpoint = Nothing} + -- | Breakpoint resource. The field \`id\` is guaranteed to be set (in -- addition to the echoed fileds). sbrBreakpoint :: Lens' SetBreakpointResponse (Maybe Breakpoint)@@ -173,15 +179,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty'-    deriving (Eq,Show,Data,Typeable,Generic)+  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' + instance FromJSON Empty where         parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -193,15 +201,17 @@ -- -- /See:/ 'updateActiveBreakpointResponse' smart constructor. data UpdateActiveBreakpointResponse =-    UpdateActiveBreakpointResponse'-    deriving (Eq,Show,Data,Typeable,Generic)+  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' + instance FromJSON UpdateActiveBreakpointResponse          where         parseJSON@@ -214,14 +224,17 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GerritSourceContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -238,7 +251,7 @@ gerritSourceContext     :: GerritSourceContext gerritSourceContext =-    GerritSourceContext'+  GerritSourceContext'     { _gscGerritProject = Nothing     , _gscAliasName = Nothing     , _gscRevisionId = Nothing@@ -246,6 +259,7 @@     , _gscAliasContext = Nothing     } + -- | The full project name within the host. Projects may be nested, so -- \"project\/subproject\" is a valid project name. The \"repo name\" is -- hostURI\/project.@@ -299,11 +313,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RepoId' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -313,12 +330,9 @@ -- * 'riProjectRepoId' repoId     :: RepoId-repoId =-    RepoId'-    { _riUid = Nothing-    , _riProjectRepoId = Nothing-    }+repoId = RepoId' {_riUid = Nothing, _riProjectRepoId = Nothing} + -- | A server-assigned, globally unique identifier. riUid :: Lens' RepoId (Maybe Text) riUid = lens _riUid (\ s a -> s{_riUid = a})@@ -346,10 +360,13 @@ -- | Labels with user defined metadata. -- -- /See:/ 'extendedSourceContextLabels' smart constructor.-newtype ExtendedSourceContextLabels = ExtendedSourceContextLabels'+newtype ExtendedSourceContextLabels =+  ExtendedSourceContextLabels'     { _esclAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -359,10 +376,9 @@     :: HashMap Text Text -- ^ 'esclAddtional'     -> ExtendedSourceContextLabels extendedSourceContextLabels pEsclAddtional_ =-    ExtendedSourceContextLabels'-    { _esclAddtional = _Coerce # pEsclAddtional_-    }+  ExtendedSourceContextLabels' {_esclAddtional = _Coerce # pEsclAddtional_} + esclAddtional :: Lens' ExtendedSourceContextLabels (HashMap Text Text) esclAddtional   = lens _esclAddtional@@ -382,11 +398,14 @@ -- 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectRepoId' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -396,12 +415,9 @@ -- * 'priProjectId' projectRepoId     :: ProjectRepoId-projectRepoId =-    ProjectRepoId'-    { _priRepoName = Nothing-    , _priProjectId = Nothing-    }+projectRepoId = ProjectRepoId' {_priRepoName = Nothing, _priProjectId = Nothing} + -- | The name of the repo. Leave empty for the default repo. priRepoName :: Lens' ProjectRepoId (Maybe Text) priRepoName@@ -429,11 +445,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FormatMessage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -443,18 +462,14 @@ -- * 'fmParameters' formatMessage     :: FormatMessage-formatMessage =-    FormatMessage'-    { _fmFormat = Nothing-    , _fmParameters = Nothing-    }+formatMessage = FormatMessage' {_fmFormat = Nothing, _fmParameters = Nothing} + -- | 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.\`+-- \`$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}) @@ -482,7 +497,8 @@ -- | Represents the breakpoint specification, status and results. -- -- /See:/ 'breakpoint' smart constructor.-data Breakpoint = Breakpoint'+data Breakpoint =+  Breakpoint'     { _bStatus               :: !(Maybe StatusMessage)     , _bLogLevel             :: !(Maybe BreakpointLogLevel)     , _bLocation             :: !(Maybe SourceLocation)@@ -499,8 +515,10 @@     , _bEvaluatedExpressions :: !(Maybe [Variable])     , _bCreateTime           :: !(Maybe DateTime')     , _bIsFinalState         :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Breakpoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -539,7 +557,7 @@ breakpoint     :: Breakpoint breakpoint =-    Breakpoint'+  Breakpoint'     { _bStatus = Nothing     , _bLogLevel = Nothing     , _bLocation = Nothing@@ -558,6 +576,7 @@     , _bIsFinalState = Nothing     } + -- | Breakpoint status. The status includes an error flag and a human -- readable message. This field is usually unset. The message can be either -- informational or an error message. Regardless, clients should always@@ -732,10 +751,13 @@ -- displayed to the user. -- -- /See:/ 'breakpointLabels' smart constructor.-newtype BreakpointLabels = BreakpointLabels'+newtype BreakpointLabels =+  BreakpointLabels'     { _blAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -745,10 +767,9 @@     :: HashMap Text Text -- ^ 'blAddtional'     -> BreakpointLabels breakpointLabels pBlAddtional_ =-    BreakpointLabels'-    { _blAddtional = _Coerce # pBlAddtional_-    }+  BreakpointLabels' {_blAddtional = _Coerce # pBlAddtional_} + blAddtional :: Lens' BreakpointLabels (HashMap Text Text) blAddtional   = lens _blAddtional (\ s a -> s{_blAddtional = a}) .@@ -765,10 +786,13 @@ -- | Response for getting breakpoint information. -- -- /See:/ 'getBreakpointResponse' smart constructor.-newtype GetBreakpointResponse = GetBreakpointResponse'+newtype GetBreakpointResponse =+  GetBreakpointResponse'     { _gbrBreakpoint :: Maybe Breakpoint-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBreakpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -776,11 +800,9 @@ -- * 'gbrBreakpoint' getBreakpointResponse     :: GetBreakpointResponse-getBreakpointResponse =-    GetBreakpointResponse'-    { _gbrBreakpoint = Nothing-    }+getBreakpointResponse = GetBreakpointResponse' {_gbrBreakpoint = Nothing} + -- | Complete breakpoint state. The fields \`id\` and \`location\` are -- guaranteed to be set. gbrBreakpoint :: Lens' GetBreakpointResponse (Maybe Breakpoint)@@ -839,15 +861,18 @@ -- 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Variable' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -866,7 +891,7 @@ variable     :: Variable variable =-    Variable'+  Variable'     { _vStatus = Nothing     , _vVarTableIndex = Nothing     , _vMembers = Nothing@@ -875,6 +900,7 @@     , _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@@ -946,11 +972,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBreakpointsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -961,11 +990,10 @@ listBreakpointsResponse     :: ListBreakpointsResponse listBreakpointsResponse =-    ListBreakpointsResponse'-    { _lbrNextWaitToken = Nothing-    , _lbrBreakpoints = Nothing-    }+  ListBreakpointsResponse'+    {_lbrNextWaitToken = Nothing, _lbrBreakpoints = Nothing} + -- | 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.@@ -1003,10 +1031,13 @@ -- | Response for listing debuggees. -- -- /See:/ 'listDebuggeesResponse' smart constructor.-newtype ListDebuggeesResponse = ListDebuggeesResponse'+newtype ListDebuggeesResponse =+  ListDebuggeesResponse'     { _ldrDebuggees :: Maybe [Debuggee]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDebuggeesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1014,11 +1045,9 @@ -- * 'ldrDebuggees' listDebuggeesResponse     :: ListDebuggeesResponse-listDebuggeesResponse =-    ListDebuggeesResponse'-    { _ldrDebuggees = Nothing-    }+listDebuggeesResponse = ListDebuggeesResponse' {_ldrDebuggees = Nothing} + -- | List of debuggees accessible to the calling user. The fields -- \`debuggee.id\` and \`description\` are guaranteed to be set. The -- \`description\` field is a human readable field provided by agents and@@ -1044,10 +1073,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateActiveBreakpointRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1056,10 +1088,9 @@ updateActiveBreakpointRequest     :: UpdateActiveBreakpointRequest updateActiveBreakpointRequest =-    UpdateActiveBreakpointRequest'-    { _uabrBreakpoint = Nothing-    }+  UpdateActiveBreakpointRequest' {_uabrBreakpoint = Nothing} + -- | Updated breakpoint information. The field \`id\` must be set. The agent -- must echo all Breakpoint specification fields in the update. uabrBreakpoint :: Lens' UpdateActiveBreakpointRequest (Maybe Breakpoint)@@ -1086,12 +1117,15 @@ -- the message \`Location not found\`. -- -- /See:/ 'statusMessage' smart constructor.-data StatusMessage = StatusMessage'+data StatusMessage =+  StatusMessage'     { _smRefersTo    :: !(Maybe StatusMessageRefersTo)     , _smIsError     :: !(Maybe Bool)     , _smDescription :: !(Maybe FormatMessage)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusMessage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1104,12 +1138,10 @@ statusMessage     :: StatusMessage statusMessage =-    StatusMessage'-    { _smRefersTo = Nothing-    , _smIsError = Nothing-    , _smDescription = Nothing-    }+  StatusMessage'+    {_smRefersTo = Nothing, _smIsError = Nothing, _smDescription = Nothing} + -- | Reference to which the message applies. smRefersTo :: Lens' StatusMessage (Maybe StatusMessageRefersTo) smRefersTo@@ -1145,12 +1177,15 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListActiveBreakpointsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1163,12 +1198,13 @@ listActiveBreakpointsResponse     :: ListActiveBreakpointsResponse listActiveBreakpointsResponse =-    ListActiveBreakpointsResponse'+  ListActiveBreakpointsResponse'     { _labrNextWaitToken = Nothing     , _labrBreakpoints = Nothing     , _labrWaitExpired = Nothing     } + -- | A token that can be used in the next method call to block until the list -- of breakpoints changes. labrNextWaitToken :: Lens' ListActiveBreakpointsResponse (Maybe Text)@@ -1214,11 +1250,14 @@ -- details describing the context. -- -- /See:/ 'extendedSourceContext' smart constructor.-data ExtendedSourceContext = ExtendedSourceContext'+data ExtendedSourceContext =+  ExtendedSourceContext'     { _escContext :: !(Maybe SourceContext)     , _escLabels  :: !(Maybe ExtendedSourceContextLabels)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1229,11 +1268,9 @@ extendedSourceContext     :: ExtendedSourceContext extendedSourceContext =-    ExtendedSourceContext'-    { _escContext = Nothing-    , _escLabels = Nothing-    }+  ExtendedSourceContext' {_escContext = Nothing, _escLabels = Nothing} + -- | Any source context. escContext :: Lens' ExtendedSourceContext (Maybe SourceContext) escContext@@ -1262,11 +1299,14 @@ -- 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GitSourceContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1276,12 +1316,9 @@ -- * 'gRevisionId' gitSourceContext     :: GitSourceContext-gitSourceContext =-    GitSourceContext'-    { _gURL = Nothing-    , _gRevisionId = Nothing-    }+gitSourceContext = GitSourceContext' {_gURL = Nothing, _gRevisionId = Nothing} + -- | Git repository URL. gURL :: Lens' GitSourceContext (Maybe Text) gURL = lens _gURL (\ s a -> s{_gURL = a})@@ -1308,12 +1345,15 @@ -- | Represents a location in the source code. -- -- /See:/ 'sourceLocation' smart constructor.-data SourceLocation = SourceLocation'+data SourceLocation =+  SourceLocation'     { _slPath   :: !(Maybe Text)     , _slLine   :: !(Maybe (Textual Int32))     , _slColumn :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1326,12 +1366,9 @@ sourceLocation     :: SourceLocation sourceLocation =-    SourceLocation'-    { _slPath = Nothing-    , _slLine = Nothing-    , _slColumn = Nothing-    }+  SourceLocation' {_slPath = Nothing, _slLine = Nothing, _slColumn = Nothing} + -- | 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})@@ -1368,13 +1405,16 @@ -- | Represents a stack frame context. -- -- /See:/ 'stackFrame' smart constructor.-data StackFrame = StackFrame'+data StackFrame =+  StackFrame'     { _sfFunction  :: !(Maybe Text)     , _sfLocation  :: !(Maybe SourceLocation)     , _sfArguments :: !(Maybe [Variable])     , _sfLocals    :: !(Maybe [Variable])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StackFrame' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1389,13 +1429,14 @@ stackFrame     :: StackFrame stackFrame =-    StackFrame'+  StackFrame'     { _sfFunction = Nothing     , _sfLocation = Nothing     , _sfArguments = Nothing     , _sfLocals = Nothing     } + -- | Demangled function name at the call site. sfFunction :: Lens' StackFrame (Maybe Text) sfFunction@@ -1444,13 +1485,16 @@ -- (a repo hosted by the Google Cloud Platform). -- -- /See:/ 'cloudRepoSourceContext' smart constructor.-data CloudRepoSourceContext = CloudRepoSourceContext'+data CloudRepoSourceContext =+  CloudRepoSourceContext'     { _crscRepoId       :: !(Maybe RepoId)     , _crscAliasName    :: !(Maybe Text)     , _crscRevisionId   :: !(Maybe Text)     , _crscAliasContext :: !(Maybe AliasContext)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudRepoSourceContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1465,13 +1509,14 @@ cloudRepoSourceContext     :: CloudRepoSourceContext cloudRepoSourceContext =-    CloudRepoSourceContext'+  CloudRepoSourceContext'     { _crscRepoId = Nothing     , _crscAliasName = Nothing     , _crscRevisionId = Nothing     , _crscAliasContext = Nothing     } + -- | The ID of the repo. crscRepoId :: Lens' CloudRepoSourceContext (Maybe RepoId) crscRepoId@@ -1517,10 +1562,13 @@ -- displayed to the user. -- -- /See:/ 'debuggeeLabels' smart constructor.-newtype DebuggeeLabels = DebuggeeLabels'+newtype DebuggeeLabels =+  DebuggeeLabels'     { _dlAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggeeLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1530,10 +1578,9 @@     :: HashMap Text Text -- ^ 'dlAddtional'     -> DebuggeeLabels debuggeeLabels pDlAddtional_ =-    DebuggeeLabels'-    { _dlAddtional = _Coerce # pDlAddtional_-    }+  DebuggeeLabels' {_dlAddtional = _Coerce # pDlAddtional_} + dlAddtional :: Lens' DebuggeeLabels (HashMap Text Text) dlAddtional   = lens _dlAddtional (\ s a -> s{_dlAddtional = a}) .@@ -1554,7 +1601,8 @@ -- such by using exactly the same Debuggee message value when registering. -- -- /See:/ 'debuggee' smart constructor.-data Debuggee = Debuggee'+data Debuggee =+  Debuggee'     { _dStatus            :: !(Maybe StatusMessage)     , _dUniquifier        :: !(Maybe Text)     , _dProject           :: !(Maybe Text)@@ -1566,8 +1614,10 @@     , _dDescription       :: !(Maybe Text)     , _dIsInactive        :: !(Maybe Bool)     , _dSourceContexts    :: !(Maybe [SourceContext])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Debuggee' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1596,7 +1646,7 @@ debuggee     :: Debuggee debuggee =-    Debuggee'+  Debuggee'     { _dStatus = Nothing     , _dUniquifier = Nothing     , _dProject = Nothing@@ -1610,6 +1660,7 @@     , _dSourceContexts = Nothing     } + -- | Human readable message to be displayed to the user about this debuggee. -- Absence of this field indicates no status. The message can be either -- informational or an error status.@@ -1720,11 +1771,14 @@ -- snapshot. -- -- /See:/ 'cloudWorkspaceSourceContext' smart constructor.-data CloudWorkspaceSourceContext = CloudWorkspaceSourceContext'+data CloudWorkspaceSourceContext =+  CloudWorkspaceSourceContext'     { _cwscWorkspaceId :: !(Maybe CloudWorkspaceId)     , _cwscSnapshotId  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudWorkspaceSourceContext' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1735,11 +1789,10 @@ cloudWorkspaceSourceContext     :: CloudWorkspaceSourceContext cloudWorkspaceSourceContext =-    CloudWorkspaceSourceContext'-    { _cwscWorkspaceId = Nothing-    , _cwscSnapshotId = Nothing-    }+  CloudWorkspaceSourceContext'+    {_cwscWorkspaceId = Nothing, _cwscSnapshotId = Nothing} + -- | The ID of the workspace. cwscWorkspaceId :: Lens' CloudWorkspaceSourceContext (Maybe CloudWorkspaceId) cwscWorkspaceId@@ -1770,10 +1823,13 @@ -- | Request to register a debuggee. -- -- /See:/ 'registerDebuggeeRequest' smart constructor.-newtype RegisterDebuggeeRequest = RegisterDebuggeeRequest'+newtype RegisterDebuggeeRequest =+  RegisterDebuggeeRequest'     { _rDebuggee :: Maybe Debuggee-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDebuggeeRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1781,11 +1837,9 @@ -- * 'rDebuggee' registerDebuggeeRequest     :: RegisterDebuggeeRequest-registerDebuggeeRequest =-    RegisterDebuggeeRequest'-    { _rDebuggee = Nothing-    }+registerDebuggeeRequest = RegisterDebuggeeRequest' {_rDebuggee = Nothing} + -- | Debuggee information to register. The fields \`project\`, -- \`uniquifier\`, \`description\` and \`agent_version\` of the debuggee -- must be set.@@ -1806,11 +1860,14 @@ -- | An alias to a repo revision. -- -- /See:/ 'aliasContext' smart constructor.-data AliasContext = AliasContext'+data AliasContext =+  AliasContext'     { _acKind :: !(Maybe AliasContextKind)     , _acName :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  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:@@ -1820,12 +1877,9 @@ -- * 'acName' aliasContext     :: AliasContext-aliasContext =-    AliasContext'-    { _acKind = Nothing-    , _acName = Nothing-    }+aliasContext = AliasContext' {_acKind = Nothing, _acName = Nothing} + -- | The alias kind. acKind :: Lens' AliasContext (Maybe AliasContextKind) acKind = lens _acKind (\ s a -> s{_acKind = a})@@ -1851,11 +1905,14 @@ -- 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CloudWorkspaceId' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1865,11 +1922,8 @@ -- * 'cwiName' cloudWorkspaceId     :: CloudWorkspaceId-cloudWorkspaceId =-    CloudWorkspaceId'-    { _cwiRepoId = Nothing-    , _cwiName = Nothing-    }+cloudWorkspaceId = CloudWorkspaceId' {_cwiRepoId = Nothing, _cwiName = Nothing}+  -- | The ID of the repo containing the workspace. cwiRepoId :: Lens' CloudWorkspaceId (Maybe RepoId)
gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs view
@@ -85,7 +85,8 @@ -- from the active list to avoid setting those breakpoints again. -- -- /See:/ 'controllerDebuggeesBreakpointsList' smart constructor.-data ControllerDebuggeesBreakpointsList = ControllerDebuggeesBreakpointsList'+data ControllerDebuggeesBreakpointsList =+  ControllerDebuggeesBreakpointsList'     { _cdblXgafv            :: !(Maybe Xgafv)     , _cdblUploadProtocol   :: !(Maybe Text)     , _cdblAccessToken      :: !(Maybe Text)@@ -94,8 +95,10 @@     , _cdblWaitToken        :: !(Maybe Text)     , _cdblDebuggeeId       :: !Text     , _cdblCallback         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ControllerDebuggeesBreakpointsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,7 +122,7 @@     :: Text -- ^ 'cdblDebuggeeId'     -> ControllerDebuggeesBreakpointsList controllerDebuggeesBreakpointsList pCdblDebuggeeId_ =-    ControllerDebuggeesBreakpointsList'+  ControllerDebuggeesBreakpointsList'     { _cdblXgafv = Nothing     , _cdblUploadProtocol = Nothing     , _cdblAccessToken = Nothing@@ -130,6 +133,7 @@     , _cdblCallback = Nothing     } + -- | V1 error format. cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Xgafv) cdblXgafv@@ -184,7 +188,8 @@   = lens _cdblCallback (\ s a -> s{_cdblCallback = a})  instance GoogleRequest-         ControllerDebuggeesBreakpointsList where+           ControllerDebuggeesBreakpointsList+         where         type Rs ControllerDebuggeesBreakpointsList =              ListActiveBreakpointsResponse         type Scopes ControllerDebuggeesBreakpointsList =
gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs view
@@ -79,7 +79,8 @@ -- location to the correct line of code. -- -- /See:/ 'controllerDebuggeesBreakpointsUpdate' smart constructor.-data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate'+data ControllerDebuggeesBreakpointsUpdate =+  ControllerDebuggeesBreakpointsUpdate'     { _cdbuXgafv          :: !(Maybe Xgafv)     , _cdbuUploadProtocol :: !(Maybe Text)     , _cdbuAccessToken    :: !(Maybe Text)@@ -88,8 +89,10 @@     , _cdbuId             :: !Text     , _cdbuDebuggeeId     :: !Text     , _cdbuCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ControllerDebuggeesBreakpointsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -115,7 +118,7 @@     -> Text -- ^ 'cdbuDebuggeeId'     -> ControllerDebuggeesBreakpointsUpdate controllerDebuggeesBreakpointsUpdate pCdbuPayload_ pCdbuId_ pCdbuDebuggeeId_ =-    ControllerDebuggeesBreakpointsUpdate'+  ControllerDebuggeesBreakpointsUpdate'     { _cdbuXgafv = Nothing     , _cdbuUploadProtocol = Nothing     , _cdbuAccessToken = Nothing@@ -126,6 +129,7 @@     , _cdbuCallback = Nothing     } + -- | V1 error format. cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Xgafv) cdbuXgafv@@ -170,7 +174,8 @@   = lens _cdbuCallback (\ s a -> s{_cdbuCallback = a})  instance GoogleRequest-         ControllerDebuggeesBreakpointsUpdate where+           ControllerDebuggeesBreakpointsUpdate+         where         type Rs ControllerDebuggeesBreakpointsUpdate =              UpdateActiveBreakpointResponse         type Scopes ControllerDebuggeesBreakpointsUpdate =
gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs view
@@ -77,15 +77,18 @@ -- changing upon re-registration. -- -- /See:/ 'controllerDebuggeesRegister' smart constructor.-data ControllerDebuggeesRegister = ControllerDebuggeesRegister'+data ControllerDebuggeesRegister =+  ControllerDebuggeesRegister'     { _cdrXgafv          :: !(Maybe Xgafv)     , _cdrUploadProtocol :: !(Maybe Text)     , _cdrAccessToken    :: !(Maybe Text)     , _cdrUploadType     :: !(Maybe Text)     , _cdrPayload        :: !RegisterDebuggeeRequest     , _cdrCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ControllerDebuggeesRegister' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     :: RegisterDebuggeeRequest -- ^ 'cdrPayload'     -> ControllerDebuggeesRegister controllerDebuggeesRegister pCdrPayload_ =-    ControllerDebuggeesRegister'+  ControllerDebuggeesRegister'     { _cdrXgafv = Nothing     , _cdrUploadProtocol = Nothing     , _cdrAccessToken = Nothing@@ -113,6 +116,7 @@     , _cdrPayload = pCdrPayload_     , _cdrCallback = Nothing     }+  -- | V1 error format. cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Xgafv)
gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs view
@@ -66,7 +66,8 @@ -- | Deletes the breakpoint from the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsDelete' smart constructor.-data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete'+data DebuggerDebuggeesBreakpointsDelete =+  DebuggerDebuggeesBreakpointsDelete'     { _ddbdXgafv          :: !(Maybe Xgafv)     , _ddbdUploadProtocol :: !(Maybe Text)     , _ddbdAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _ddbdDebuggeeId     :: !Text     , _ddbdClientVersion  :: !(Maybe Text)     , _ddbdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggerDebuggeesBreakpointsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     -> Text -- ^ 'ddbdDebuggeeId'     -> DebuggerDebuggeesBreakpointsDelete debuggerDebuggeesBreakpointsDelete pDdbdBreakpointId_ pDdbdDebuggeeId_ =-    DebuggerDebuggeesBreakpointsDelete'+  DebuggerDebuggeesBreakpointsDelete'     { _ddbdXgafv = Nothing     , _ddbdUploadProtocol = Nothing     , _ddbdAccessToken = Nothing@@ -112,6 +115,7 @@     , _ddbdCallback = Nothing     } + -- | V1 error format. ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Xgafv) ddbdXgafv@@ -160,7 +164,8 @@   = lens _ddbdCallback (\ s a -> s{_ddbdCallback = a})  instance GoogleRequest-         DebuggerDebuggeesBreakpointsDelete where+           DebuggerDebuggeesBreakpointsDelete+         where         type Rs DebuggerDebuggeesBreakpointsDelete = Empty         type Scopes DebuggerDebuggeesBreakpointsDelete =              '["https://www.googleapis.com/auth/cloud-platform",
gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs view
@@ -67,7 +67,8 @@ -- | Gets breakpoint information. -- -- /See:/ 'debuggerDebuggeesBreakpointsGet' smart constructor.-data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet'+data DebuggerDebuggeesBreakpointsGet =+  DebuggerDebuggeesBreakpointsGet'     { _ddbgXgafv          :: !(Maybe Xgafv)     , _ddbgUploadProtocol :: !(Maybe Text)     , _ddbgAccessToken    :: !(Maybe Text)@@ -76,8 +77,10 @@     , _ddbgDebuggeeId     :: !Text     , _ddbgClientVersion  :: !(Maybe Text)     , _ddbgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggerDebuggeesBreakpointsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,7 +105,7 @@     -> Text -- ^ 'ddbgDebuggeeId'     -> DebuggerDebuggeesBreakpointsGet debuggerDebuggeesBreakpointsGet pDdbgBreakpointId_ pDdbgDebuggeeId_ =-    DebuggerDebuggeesBreakpointsGet'+  DebuggerDebuggeesBreakpointsGet'     { _ddbgXgafv = Nothing     , _ddbgUploadProtocol = Nothing     , _ddbgAccessToken = Nothing@@ -113,6 +116,7 @@     , _ddbgCallback = Nothing     } + -- | V1 error format. ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Xgafv) ddbgXgafv@@ -161,7 +165,8 @@   = lens _ddbgCallback (\ s a -> s{_ddbgCallback = a})  instance GoogleRequest-         DebuggerDebuggeesBreakpointsGet where+           DebuggerDebuggeesBreakpointsGet+         where         type Rs DebuggerDebuggeesBreakpointsGet =              GetBreakpointResponse         type Scopes DebuggerDebuggeesBreakpointsGet =
gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs view
@@ -75,7 +75,8 @@ -- | Lists all breakpoints for the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsList' smart constructor.-data DebuggerDebuggeesBreakpointsList = DebuggerDebuggeesBreakpointsList'+data DebuggerDebuggeesBreakpointsList =+  DebuggerDebuggeesBreakpointsList'     { _ddblXgafv           :: !(Maybe Xgafv)     , _ddblIncludeInactive :: !(Maybe Bool)     , _ddblUploadProtocol  :: !(Maybe Text)@@ -88,8 +89,10 @@     , _ddblDebuggeeId      :: !Text     , _ddblClientVersion   :: !(Maybe Text)     , _ddblCallback        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggerDebuggeesBreakpointsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,7 +124,7 @@     :: Text -- ^ 'ddblDebuggeeId'     -> DebuggerDebuggeesBreakpointsList debuggerDebuggeesBreakpointsList pDdblDebuggeeId_ =-    DebuggerDebuggeesBreakpointsList'+  DebuggerDebuggeesBreakpointsList'     { _ddblXgafv = Nothing     , _ddblIncludeInactive = Nothing     , _ddblUploadProtocol = Nothing@@ -136,6 +139,7 @@     , _ddblCallback = Nothing     } + -- | V1 error format. ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Xgafv) ddblXgafv@@ -216,7 +220,8 @@   = lens _ddblCallback (\ s a -> s{_ddblCallback = a})  instance GoogleRequest-         DebuggerDebuggeesBreakpointsList where+           DebuggerDebuggeesBreakpointsList+         where         type Rs DebuggerDebuggeesBreakpointsList =              ListBreakpointsResponse         type Scopes DebuggerDebuggeesBreakpointsList =
gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs view
@@ -68,7 +68,8 @@ -- | Sets the breakpoint to the debuggee. -- -- /See:/ 'debuggerDebuggeesBreakpointsSet' smart constructor.-data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet'+data DebuggerDebuggeesBreakpointsSet =+  DebuggerDebuggeesBreakpointsSet'     { _ddbsXgafv          :: !(Maybe Xgafv)     , _ddbsUploadProtocol :: !(Maybe Text)     , _ddbsAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _ddbsDebuggeeId     :: !Text     , _ddbsClientVersion  :: !(Maybe Text)     , _ddbsCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggerDebuggeesBreakpointsSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,7 +106,7 @@     -> Text -- ^ 'ddbsDebuggeeId'     -> DebuggerDebuggeesBreakpointsSet debuggerDebuggeesBreakpointsSet pDdbsPayload_ pDdbsDebuggeeId_ =-    DebuggerDebuggeesBreakpointsSet'+  DebuggerDebuggeesBreakpointsSet'     { _ddbsXgafv = Nothing     , _ddbsUploadProtocol = Nothing     , _ddbsAccessToken = Nothing@@ -114,6 +117,7 @@     , _ddbsCallback = Nothing     } + -- | V1 error format. ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Xgafv) ddbsXgafv@@ -161,7 +165,8 @@   = lens _ddbsCallback (\ s a -> s{_ddbsCallback = a})  instance GoogleRequest-         DebuggerDebuggeesBreakpointsSet where+           DebuggerDebuggeesBreakpointsSet+         where         type Rs DebuggerDebuggeesBreakpointsSet =              SetBreakpointResponse         type Scopes DebuggerDebuggeesBreakpointsSet =
gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs view
@@ -66,7 +66,8 @@ -- | Lists all the debuggees that the user has access to. -- -- /See:/ 'debuggerDebuggeesList' smart constructor.-data DebuggerDebuggeesList = DebuggerDebuggeesList'+data DebuggerDebuggeesList =+  DebuggerDebuggeesList'     { _ddlXgafv           :: !(Maybe Xgafv)     , _ddlIncludeInactive :: !(Maybe Bool)     , _ddlUploadProtocol  :: !(Maybe Text)@@ -75,8 +76,10 @@     , _ddlUploadType      :: !(Maybe Text)     , _ddlClientVersion   :: !(Maybe Text)     , _ddlCallback        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DebuggerDebuggeesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@ debuggerDebuggeesList     :: DebuggerDebuggeesList debuggerDebuggeesList =-    DebuggerDebuggeesList'+  DebuggerDebuggeesList'     { _ddlXgafv = Nothing     , _ddlIncludeInactive = Nothing     , _ddlUploadProtocol = Nothing@@ -109,6 +112,7 @@     , _ddlClientVersion = Nothing     , _ddlCallback = Nothing     }+  -- | V1 error format. ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Xgafv)
gogol-debugger.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-debugger-version:               0.4.0+version:               0.5.0 synopsis:              Google Stackdriver Debugger SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -50,5 +50,5 @@         , Network.Google.Debugger.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5