@@ -280,7 +280,7 @@ statusDetailsItem pSdiAddtional_ =
280280 { _sdiAddtional = _Coerce # pSdiAddtional_
281281 }
282282
283−-- | Properties of the object. Contains field \'ype with type URL.
283+-- | Properties of the object. Contains field \'type with type URL.
284284sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
285285sdiAddtional
286286 = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
@@ -435,7 +435,7 @@ operationMetadata pOmAddtional_ =
435435 { _omAddtional = _Coerce # pOmAddtional_
436436 }
437437
438−-- | Properties of the object. Contains field \'ype with type URL.
438+-- | Properties of the object. Contains field \'type with type URL.
439439omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)
440440omAddtional
441441 = lens _omAddtional (\ s a -> s{_omAddtional = a}) .
@@ -471,7 +471,7 @@ operationResponse pOrAddtional_ =
471471 { _orAddtional = _Coerce # pOrAddtional_
472472 }
473473
474−-- | Properties of the object. Contains field \'ype with type URL.
474+-- | Properties of the object. Contains field \'type with type URL.
475475orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)
476476orAddtional
477477 = lens _orAddtional (\ s a -> s{_orAddtional = a}) .
@@ -491,22 +491,29 @@ instance ToJSON OperationResponse where
491491-- field will contain this \`ExecutionResponse\` object.
492492--
493493-- /See:/ 'executionResponse' smart constructor.
494−newtype ExecutionResponse = ExecutionResponse'
495− { _erResult :: Maybe JSONValue
494+data ExecutionResponse = ExecutionResponse'
495+ { _erStatus :: !(Maybe Text)
496+ , _erResult :: !(Maybe JSONValue)
496497 } deriving (Eq,Show,Data,Typeable,Generic)
497498
498499-- | Creates a value of 'ExecutionResponse' with the minimum fields required to make a request.
499500--
500501-- Use one of the following lenses to modify other fields as desired:
501502--
503+-- * 'erStatus'
504+--
502505-- * 'erResult'
503506executionResponse
504507 :: ExecutionResponse
505508executionResponse =
506509 ExecutionResponse'
507− { _erResult = Nothing
510+ { _erStatus = Nothing
511+ , _erResult = Nothing
508512 }
509513
514+erStatus :: Lens' ExecutionResponse (Maybe Text)
515+erStatus = lens _erStatus (\ s a -> s{_erStatus = a})
516+
510517-- | The return value of the script function. The type will match the type
511518-- returned in Apps Script. Functions called through the Execution API
512519-- cannot return Apps Script-specific objects (such as a \`Document\` or
@@ -518,8 +525,13 @@ erResult = lens _erResult (\ s a -> s{_erResult = a})
518525instance FromJSON ExecutionResponse where
519526 parseJSON
520527 = withObject "ExecutionResponse"
521− (\ o -> ExecutionResponse' <$> (o .:? "result"))
528+ (\ o ->
529+ ExecutionResponse' <$>
530+ (o .:? "status") <*> (o .:? "result"))
522531
523532instance ToJSON ExecutionResponse where
524533 toJSON ExecutionResponse'{..}
525− = object (catMaybes [("result" .=) <$> _erResult])
534+ = object
535+ (catMaybes
536+ [("status" .=) <$> _erStatus,
537+ ("result" .=) <$> _erResult])