diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.2.0` ## Description 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 @@ -161,6 +161,12 @@ , lbrNextWaitToken , lbrBreakpoints + -- ** StatusMessageRefersTo + , StatusMessageRefersTo (..) + + -- ** BreakpointLogLevel + , BreakpointLogLevel (..) + -- ** ListDebuggeesResponse , ListDebuggeesResponse , listDebuggeesResponse @@ -178,6 +184,12 @@ , smIsError , smDescription + -- ** Xgafv + , Xgafv (..) + + -- ** BreakpointAction + , BreakpointAction (..) + -- ** ListActiveBreakpointsResponse , ListActiveBreakpointsResponse , listActiveBreakpointsResponse @@ -255,6 +267,9 @@ , aliasContext , acKind , acName + + -- ** AliasContextKind + , AliasContextKind (..) -- ** 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 @@ -127,6 +127,12 @@ , lbrNextWaitToken , lbrBreakpoints + -- * StatusMessageRefersTo + , StatusMessageRefersTo (..) + + -- * BreakpointLogLevel + , BreakpointLogLevel (..) + -- * ListDebuggeesResponse , ListDebuggeesResponse , listDebuggeesResponse @@ -144,6 +150,12 @@ , smIsError , smDescription + -- * Xgafv + , Xgafv (..) + + -- * BreakpointAction + , BreakpointAction (..) + -- * ListActiveBreakpointsResponse , ListActiveBreakpointsResponse , listActiveBreakpointsResponse @@ -221,6 +233,9 @@ , aliasContext , acKind , acName + + -- * AliasContextKind + , AliasContextKind (..) -- * CloudWorkspaceId , CloudWorkspaceId 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 @@ -481,10 +481,10 @@ -- /See:/ 'breakpoint' smart constructor. data Breakpoint = Breakpoint' { _bStatus :: !(Maybe StatusMessage) - , _bLogLevel :: !(Maybe Text) + , _bLogLevel :: !(Maybe BreakpointLogLevel) , _bLocation :: !(Maybe SourceLocation) - , _bAction :: !(Maybe Text) - , _bFinalTime :: !(Maybe Text) + , _bAction :: !(Maybe BreakpointAction) + , _bFinalTime :: !(Maybe DateTime') , _bExpressions :: !(Maybe [Text]) , _bLogMessageFormat :: !(Maybe Text) , _bId :: !(Maybe Text) @@ -494,7 +494,7 @@ , _bStackFrames :: !(Maybe [StackFrame]) , _bCondition :: !(Maybe Text) , _bEvaluatedExpressions :: !(Maybe [Variable]) - , _bCreateTime :: !(Maybe Text) + , _bCreateTime :: !(Maybe DateTime') , _bIsFinalState :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) @@ -567,7 +567,7 @@ bStatus = lens _bStatus (\ s a -> s{_bStatus = a}) -- | Indicates the severity of the log. Only relevant when action is \`LOG\`. -bLogLevel :: Lens' Breakpoint (Maybe Text) +bLogLevel :: Lens' Breakpoint (Maybe BreakpointLogLevel) bLogLevel = lens _bLogLevel (\ s a -> s{_bLogLevel = a}) @@ -578,14 +578,15 @@ -- | Action that the agent should perform when the code at the breakpoint -- location is hit. -bAction :: Lens' Breakpoint (Maybe Text) +bAction :: Lens' Breakpoint (Maybe BreakpointAction) bAction = lens _bAction (\ s a -> s{_bAction = a}) -- | Time this breakpoint was finalized as seen by the server in seconds -- resolution. -bFinalTime :: Lens' Breakpoint (Maybe Text) +bFinalTime :: Lens' Breakpoint (Maybe UTCTime) bFinalTime - = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) + = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) . + mapping _DateTime -- | List of read-only expressions to evaluate at the breakpoint location. -- The expressions are composed using expressions in the programming @@ -669,9 +670,10 @@ . _Coerce -- | Time this breakpoint was created by the server in seconds resolution. -bCreateTime :: Lens' Breakpoint (Maybe Text) +bCreateTime :: Lens' Breakpoint (Maybe UTCTime) bCreateTime - = lens _bCreateTime (\ s a -> s{_bCreateTime = a}) + = lens _bCreateTime (\ s a -> s{_bCreateTime = a}) . + mapping _DateTime -- | When true, indicates that this is a final result and the breakpoint -- state will not change from here on. @@ -807,7 +809,7 @@ -- 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 +-- \`\`, \`\`. 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 @@ -968,8 +970,10 @@ = lens _lbrNextWaitToken (\ s a -> s{_lbrNextWaitToken = a}) --- | List of all breakpoints with complete state. The fields \`id\` and --- \`location\` are guaranteed to be set on each breakpoint. +-- | List of breakpoints matching the request. The fields \`id\` and +-- \`location\` are guaranteed to be set on each breakpoint. The fields: +-- \`stack_frames\`, \`evaluated_expressions\` and \`variable_table\` are +-- cleared on each breakpoint regardless of it\'s status. lbrBreakpoints :: Lens' ListBreakpointsResponse [Breakpoint] lbrBreakpoints = lens _lbrBreakpoints @@ -1078,7 +1082,7 @@ -- -- /See:/ 'statusMessage' smart constructor. data StatusMessage = StatusMessage' - { _smRefersTo :: !(Maybe Text) + { _smRefersTo :: !(Maybe StatusMessageRefersTo) , _smIsError :: !(Maybe Bool) , _smDescription :: !(Maybe FormatMessage) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1102,7 +1106,7 @@ } -- | Reference to which the message applies. -smRefersTo :: Lens' StatusMessage (Maybe Text) +smRefersTo :: Lens' StatusMessage (Maybe StatusMessageRefersTo) smRefersTo = lens _smRefersTo (\ s a -> s{_smRefersTo = a}) @@ -1783,7 +1787,7 @@ -- -- /See:/ 'aliasContext' smart constructor. data AliasContext = AliasContext' - { _acKind :: !(Maybe Text) + { _acKind :: !(Maybe AliasContextKind) , _acName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1803,7 +1807,7 @@ } -- | The alias kind. -acKind :: Lens' AliasContext (Maybe Text) +acKind :: Lens' AliasContext (Maybe AliasContextKind) acKind = lens _acKind (\ s a -> s{_acKind = a}) -- | The alias name. 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 @@ -17,3 +17,193 @@ module Network.Google.Debugger.Types.Sum where import Network.Google.Prelude + +-- | Reference to which the message applies. +data StatusMessageRefersTo + = Unspecified + -- ^ @UNSPECIFIED@ + -- Status doesn\'t refer to any particular input. + | BreakpointSourceLocation + -- ^ @BREAKPOINT_SOURCE_LOCATION@ + -- Status applies to the breakpoint and is related to its location. + | BreakpointCondition + -- ^ @BREAKPOINT_CONDITION@ + -- Status applies to the breakpoint and is related to its condition. + | BreakpointExpression + -- ^ @BREAKPOINT_EXPRESSION@ + -- Status applies to the breakpoint and is related to its expressions. + | BreakpointAge + -- ^ @BREAKPOINT_AGE@ + -- Status applies to the breakpoint and is related to its age. + | VariableName + -- ^ @VARIABLE_NAME@ + -- Status applies to the entire variable. + | VariableValue + -- ^ @VARIABLE_VALUE@ + -- Status applies to variable value (variable name is valid). + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable StatusMessageRefersTo + +instance FromHttpApiData StatusMessageRefersTo where + parseQueryParam = \case + "UNSPECIFIED" -> Right Unspecified + "BREAKPOINT_SOURCE_LOCATION" -> Right BreakpointSourceLocation + "BREAKPOINT_CONDITION" -> Right BreakpointCondition + "BREAKPOINT_EXPRESSION" -> Right BreakpointExpression + "BREAKPOINT_AGE" -> Right BreakpointAge + "VARIABLE_NAME" -> Right VariableName + "VARIABLE_VALUE" -> Right VariableValue + x -> Left ("Unable to parse StatusMessageRefersTo from: " <> x) + +instance ToHttpApiData StatusMessageRefersTo where + toQueryParam = \case + Unspecified -> "UNSPECIFIED" + BreakpointSourceLocation -> "BREAKPOINT_SOURCE_LOCATION" + BreakpointCondition -> "BREAKPOINT_CONDITION" + BreakpointExpression -> "BREAKPOINT_EXPRESSION" + BreakpointAge -> "BREAKPOINT_AGE" + VariableName -> "VARIABLE_NAME" + VariableValue -> "VARIABLE_VALUE" + +instance FromJSON StatusMessageRefersTo where + parseJSON = parseJSONText "StatusMessageRefersTo" + +instance ToJSON StatusMessageRefersTo where + toJSON = toJSONText + +-- | Indicates the severity of the log. Only relevant when action is \`LOG\`. +data BreakpointLogLevel + = Info + -- ^ @INFO@ + -- Information log message. + | Warning + -- ^ @WARNING@ + -- Warning log message. + | Error' + -- ^ @ERROR@ + -- Error log message. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable BreakpointLogLevel + +instance FromHttpApiData BreakpointLogLevel where + parseQueryParam = \case + "INFO" -> Right Info + "WARNING" -> Right Warning + "ERROR" -> Right Error' + x -> Left ("Unable to parse BreakpointLogLevel from: " <> x) + +instance ToHttpApiData BreakpointLogLevel where + toQueryParam = \case + Info -> "INFO" + Warning -> "WARNING" + Error' -> "ERROR" + +instance FromJSON BreakpointLogLevel where + parseJSON = parseJSONText "BreakpointLogLevel" + +instance ToJSON BreakpointLogLevel where + toJSON = toJSONText + +-- | V1 error format. +data Xgafv + = X1 + -- ^ @1@ + -- v1 error format + | X2 + -- ^ @2@ + -- v2 error format + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable Xgafv + +instance FromHttpApiData Xgafv where + parseQueryParam = \case + "1" -> Right X1 + "2" -> Right X2 + x -> Left ("Unable to parse Xgafv from: " <> x) + +instance ToHttpApiData Xgafv where + toQueryParam = \case + X1 -> "1" + X2 -> "2" + +instance FromJSON Xgafv where + parseJSON = parseJSONText "Xgafv" + +instance ToJSON Xgafv where + toJSON = toJSONText + +-- | Action that the agent should perform when the code at the breakpoint +-- location is hit. +data BreakpointAction + = Capture + -- ^ @CAPTURE@ + -- Capture stack frame and variables and update the breakpoint. The data is + -- only captured once. After that the breakpoint is set in a final state. + | Log + -- ^ @LOG@ + -- Log each breakpoint hit. The breakpoint remains active until deleted or + -- expired. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable BreakpointAction + +instance FromHttpApiData BreakpointAction where + parseQueryParam = \case + "CAPTURE" -> Right Capture + "LOG" -> Right Log + x -> Left ("Unable to parse BreakpointAction from: " <> x) + +instance ToHttpApiData BreakpointAction where + toQueryParam = \case + Capture -> "CAPTURE" + Log -> "LOG" + +instance FromJSON BreakpointAction where + parseJSON = parseJSONText "BreakpointAction" + +instance ToJSON BreakpointAction where + toJSON = toJSONText + +-- | The alias kind. +data AliasContextKind + = Any + -- ^ @ANY@ + -- Do not use. + | Fixed + -- ^ @FIXED@ + -- Git tag + | Movable + -- ^ @MOVABLE@ + -- Git branch + | Other + -- ^ @OTHER@ + -- OTHER is used to specify non-standard aliases, those not of the kinds + -- above. For example, if a Git repo has a ref named \"refs\/foo\/bar\", it + -- is considered to be of kind OTHER. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AliasContextKind + +instance FromHttpApiData AliasContextKind where + parseQueryParam = \case + "ANY" -> Right Any + "FIXED" -> Right Fixed + "MOVABLE" -> Right Movable + "OTHER" -> Right Other + x -> Left ("Unable to parse AliasContextKind from: " <> x) + +instance ToHttpApiData AliasContextKind where + toQueryParam = \case + Any -> "ANY" + Fixed -> "FIXED" + Movable -> "MOVABLE" + Other -> "OTHER" + +instance FromJSON AliasContextKind where + parseJSON = parseJSONText "AliasContextKind" + +instance ToJSON AliasContextKind where + toJSON = toJSONText 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 @@ -65,7 +65,7 @@ "debuggees" :> Capture "debuggeeId" Text :> "breakpoints" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -90,7 +90,7 @@ -- -- /See:/ 'controllerDebuggeesBreakpointsList' smart constructor. data ControllerDebuggeesBreakpointsList = ControllerDebuggeesBreakpointsList' - { _cdblXgafv :: !(Maybe Text) + { _cdblXgafv :: !(Maybe Xgafv) , _cdblUploadProtocol :: !(Maybe Text) , _cdblPp :: !Bool , _cdblAccessToken :: !(Maybe Text) @@ -143,7 +143,7 @@ } -- | V1 error format. -cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) +cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Xgafv) cdblXgafv = lens _cdblXgafv (\ s a -> s{_cdblXgafv = a}) 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 @@ -63,7 +63,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "id" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -84,7 +84,7 @@ -- -- /See:/ 'controllerDebuggeesBreakpointsUpdate' smart constructor. data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate' - { _cdbuXgafv :: !(Maybe Text) + { _cdbuXgafv :: !(Maybe Xgafv) , _cdbuUploadProtocol :: !(Maybe Text) , _cdbuPp :: !Bool , _cdbuAccessToken :: !(Maybe Text) @@ -139,7 +139,7 @@ } -- | V1 error format. -cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) +cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Xgafv) cdbuXgafv = lens _cdbuXgafv (\ s a -> s{_cdbuXgafv = a}) 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 @@ -60,7 +60,7 @@ "controller" :> "debuggees" :> "register" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -82,7 +82,7 @@ -- -- /See:/ 'controllerDebuggeesRegister' smart constructor. data ControllerDebuggeesRegister = ControllerDebuggeesRegister' - { _cdrXgafv :: !(Maybe Text) + { _cdrXgafv :: !(Maybe Xgafv) , _cdrUploadProtocol :: !(Maybe Text) , _cdrPp :: !Bool , _cdrAccessToken :: !(Maybe Text) @@ -127,7 +127,7 @@ } -- | V1 error format. -cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Text) +cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Xgafv) cdrXgafv = lens _cdrXgafv (\ s a -> s{_cdrXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). 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 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "breakpointId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsDelete' smart constructor. data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete' - { _ddbdXgafv :: !(Maybe Text) + { _ddbdXgafv :: !(Maybe Xgafv) , _ddbdUploadProtocol :: !(Maybe Text) , _ddbdPp :: !Bool , _ddbdAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) +ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Xgafv) ddbdXgafv = lens _ddbdXgafv (\ s a -> s{_ddbdXgafv = a}) 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 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "breakpointId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsGet' smart constructor. data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet' - { _ddbgXgafv :: !(Maybe Text) + { _ddbgXgafv :: !(Maybe Xgafv) , _ddbgUploadProtocol :: !(Maybe Text) , _ddbgPp :: !Bool , _ddbgAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) +ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Xgafv) ddbgXgafv = lens _ddbgXgafv (\ s a -> s{_ddbgXgafv = a}) 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 @@ -60,7 +60,7 @@ "debuggees" :> Capture "debuggeeId" Text :> "breakpoints" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> @@ -80,7 +80,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsList' smart constructor. data DebuggerDebuggeesBreakpointsList = DebuggerDebuggeesBreakpointsList' - { _ddblXgafv :: !(Maybe Text) + { _ddblXgafv :: !(Maybe Xgafv) , _ddblIncludeInactive :: !(Maybe Bool) , _ddblUploadProtocol :: !(Maybe Text) , _ddblPp :: !Bool @@ -149,7 +149,7 @@ } -- | V1 error format. -ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) +ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Xgafv) ddblXgafv = lens _ddblXgafv (\ s a -> s{_ddblXgafv = a}) @@ -188,8 +188,8 @@ = lens _ddblUploadType (\ s a -> s{_ddblUploadType = a}) --- | When set to \`true\`, the response breakpoints are stripped of the --- results fields: \`stack_frames\`, \`evaluated_expressions\` and +-- | This field is deprecated. The following fields are always stripped out +-- of the result: \`stack_frames\`, \`evaluated_expressions\` and -- \`variable_table\`. ddblStripResults :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) ddblStripResults 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 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> "set" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -73,7 +73,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsSet' smart constructor. data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet' - { _ddbsXgafv :: !(Maybe Text) + { _ddbsXgafv :: !(Maybe Xgafv) , _ddbsUploadProtocol :: !(Maybe Text) , _ddbsPp :: !Bool , _ddbsAccessToken :: !(Maybe Text) @@ -127,7 +127,7 @@ } -- | V1 error format. -ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) +ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Xgafv) ddbsXgafv = lens _ddbsXgafv (\ s a -> s{_ddbsXgafv = a}) 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 @@ -54,7 +54,7 @@ "v2" :> "debugger" :> "debuggees" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> QueryParam "project" Text :> @@ -71,7 +71,7 @@ -- -- /See:/ 'debuggerDebuggeesList' smart constructor. data DebuggerDebuggeesList = DebuggerDebuggeesList' - { _ddlXgafv :: !(Maybe Text) + { _ddlXgafv :: !(Maybe Xgafv) , _ddlIncludeInactive :: !(Maybe Bool) , _ddlUploadProtocol :: !(Maybe Text) , _ddlProject :: !(Maybe Text) @@ -123,7 +123,7 @@ } -- | V1 error format. -ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Text) +ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Xgafv) ddlXgafv = lens _ddlXgafv (\ s a -> s{_ddlXgafv = a}) -- | When set to \`true\`, the result includes all debuggees. Otherwise, the 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.1.1 +version: 0.2.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.1.1.* + gogol-core == 0.2.0.* , base >= 4.7 && < 5