diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/CloudShell/Types.hs b/gen/Network/Google/CloudShell/Types.hs --- a/gen/Network/Google/CloudShell/Types.hs +++ b/gen/Network/Google/CloudShell/Types.hs @@ -121,4 +121,4 @@ -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] -cloudPlatformScope = Proxy; +cloudPlatformScope = Proxy diff --git a/gen/Network/Google/CloudShell/Types/Product.hs b/gen/Network/Google/CloudShell/Types/Product.hs --- a/gen/Network/Google/CloudShell/Types/Product.hs +++ b/gen/Network/Google/CloudShell/Types/Product.hs @@ -57,12 +57,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor. -data Status = Status' +data Status = + Status' { _sDetails :: !(Maybe [StatusDetailsItem]) , _sCode :: !(Maybe (Textual Int32)) , _sMessage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,13 +77,9 @@ -- * 'sMessage' status :: Status -status = - Status' - { _sDetails = Nothing - , _sCode = Nothing - , _sMessage = Nothing - } +status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem] @@ -120,11 +119,14 @@ -- | The response message for Operations.ListOperations. -- -- /See:/ 'listOperationsResponse' smart constructor. -data ListOperationsResponse = ListOperationsResponse' +data ListOperationsResponse = + ListOperationsResponse' { _lorNextPageToken :: !(Maybe Text) , _lorOperations :: !(Maybe [Operation]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,11 +137,10 @@ listOperationsResponse :: ListOperationsResponse listOperationsResponse = - ListOperationsResponse' - { _lorNextPageToken = Nothing - , _lorOperations = Nothing - } + ListOperationsResponse' + {_lorNextPageToken = Nothing, _lorOperations = Nothing} + -- | The standard List next-page token. lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text) lorNextPageToken @@ -173,15 +174,17 @@ -- -- /See:/ 'cancelOperationRequest' smart constructor. data CancelOperationRequest = - CancelOperationRequest' - deriving (Eq,Show,Data,Typeable,Generic) + CancelOperationRequest' + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request. -- cancelOperationRequest :: CancelOperationRequest cancelOperationRequest = CancelOperationRequest' + instance FromJSON CancelOperationRequest where parseJSON = withObject "CancelOperationRequest" @@ -194,14 +197,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation' +data Operation = + Operation' { _oDone :: !(Maybe Bool) , _oError :: !(Maybe Status) , _oResponse :: !(Maybe OperationResponse) , _oName :: !(Maybe Text) , _oMetadata :: !(Maybe OperationMetadata) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -218,7 +224,7 @@ operation :: Operation operation = - Operation' + Operation' { _oDone = Nothing , _oError = Nothing , _oResponse = Nothing @@ -226,6 +232,7 @@ , _oMetadata = Nothing } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available. @@ -289,15 +296,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') @@ -310,7 +319,8 @@ -- Each user has a single environment with the ID \"default\". -- -- /See:/ 'environment' smart constructor. -data Environment = Environment' +data Environment = + Environment' { _eState :: !(Maybe EnvironmentState) , _ePublicKeys :: !(Maybe [PublicKey]) , _eSSHUsername :: !(Maybe Text) @@ -319,8 +329,10 @@ , _eSSHHost :: !(Maybe Text) , _eDockerImage :: !(Maybe Text) , _eSSHPort :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Environment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -343,7 +355,7 @@ environment :: Environment environment = - Environment' + Environment' { _eState = Nothing , _ePublicKeys = Nothing , _eSSHUsername = Nothing @@ -354,6 +366,7 @@ , _eSSHPort = Nothing } + -- | Output only. Current execution state of this environment. eState :: Lens' Environment (Maybe EnvironmentState) eState = lens _eState (\ s a -> s{_eState = a}) @@ -433,10 +446,13 @@ -- -- /See:/ 'statusDetailsItem' smart constructor. -newtype StatusDetailsItem = StatusDetailsItem' +newtype StatusDetailsItem = + StatusDetailsItem' { _sdiAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -446,10 +462,9 @@ :: HashMap Text JSONValue -- ^ 'sdiAddtional' -> StatusDetailsItem statusDetailsItem pSdiAddtional_ = - StatusDetailsItem' - { _sdiAddtional = _Coerce # pSdiAddtional_ - } + StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional @@ -467,12 +482,15 @@ -- | A public SSH key, corresponding to a private SSH key held by the client. -- -- /See:/ 'publicKey' smart constructor. -data PublicKey = PublicKey' +data PublicKey = + PublicKey' { _pkFormat :: !(Maybe PublicKeyFormat) , _pkKey :: !(Maybe Bytes) , _pkName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PublicKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -485,12 +503,9 @@ publicKey :: PublicKey publicKey = - PublicKey' - { _pkFormat = Nothing - , _pkKey = Nothing - , _pkName = Nothing - } + PublicKey' {_pkFormat = Nothing, _pkKey = Nothing, _pkName = Nothing} + -- | Required. Format of this key\'s content. pkFormat :: Lens' PublicKey (Maybe PublicKeyFormat) pkFormat = lens _pkFormat (\ s a -> s{_pkFormat = a}) @@ -530,10 +545,13 @@ -- StartEnvironment. -- -- /See:/ 'startEnvironmentMetadata' smart constructor. -newtype StartEnvironmentMetadata = StartEnvironmentMetadata' +newtype StartEnvironmentMetadata = + StartEnvironmentMetadata' { _semState :: Maybe StartEnvironmentMetadataState - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartEnvironmentMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -541,11 +559,9 @@ -- * 'semState' startEnvironmentMetadata :: StartEnvironmentMetadata -startEnvironmentMetadata = - StartEnvironmentMetadata' - { _semState = Nothing - } +startEnvironmentMetadata = StartEnvironmentMetadata' {_semState = Nothing} + -- | Current state of the environment being started. semState :: Lens' StartEnvironmentMetadata (Maybe StartEnvironmentMetadataState) semState = lens _semState (\ s a -> s{_semState = a}) @@ -566,10 +582,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor. -newtype OperationMetadata = OperationMetadata' +newtype OperationMetadata = + OperationMetadata' { _omAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -579,10 +598,9 @@ :: HashMap Text JSONValue -- ^ 'omAddtional' -> OperationMetadata operationMetadata pOmAddtional_ = - OperationMetadata' - { _omAddtional = _Coerce # pOmAddtional_ - } + OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional @@ -601,10 +619,13 @@ -- StartEnvironment once the operation is complete. -- -- /See:/ 'startEnvironmentResponse' smart constructor. -newtype StartEnvironmentResponse = StartEnvironmentResponse' +newtype StartEnvironmentResponse = + StartEnvironmentResponse' { _serEnvironment :: Maybe Environment - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartEnvironmentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -612,11 +633,9 @@ -- * 'serEnvironment' startEnvironmentResponse :: StartEnvironmentResponse -startEnvironmentResponse = - StartEnvironmentResponse' - { _serEnvironment = Nothing - } +startEnvironmentResponse = StartEnvironmentResponse' {_serEnvironment = Nothing} + -- | Environment that was started. serEnvironment :: Lens' StartEnvironmentResponse (Maybe Environment) serEnvironment @@ -644,10 +663,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor. -newtype OperationResponse = OperationResponse' +newtype OperationResponse = + OperationResponse' { _orAddtional :: HashMap Text JSONValue - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -657,9 +679,8 @@ :: HashMap Text JSONValue -- ^ 'orAddtional' -> OperationResponse operationResponse pOrAddtional_ = - OperationResponse' - { _orAddtional = _Coerce # pOrAddtional_ - } + OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) diff --git a/gen/Network/Google/Resource/CloudShell/Operations/Cancel.hs b/gen/Network/Google/Resource/CloudShell/Operations/Cancel.hs --- a/gen/Network/Google/Resource/CloudShell/Operations/Cancel.hs +++ b/gen/Network/Google/Resource/CloudShell/Operations/Cancel.hs @@ -78,7 +78,8 @@ -- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ 'operationsCancel' smart constructor. -data OperationsCancel = OperationsCancel' +data OperationsCancel = + OperationsCancel' { _ocXgafv :: !(Maybe Xgafv) , _ocUploadProtocol :: !(Maybe Text) , _ocAccessToken :: !(Maybe Text) @@ -86,8 +87,10 @@ , _ocPayload :: !CancelOperationRequest , _ocName :: !Text , _ocCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -110,7 +113,7 @@ -> Text -- ^ 'ocName' -> OperationsCancel operationsCancel pOcPayload_ pOcName_ = - OperationsCancel' + OperationsCancel' { _ocXgafv = Nothing , _ocUploadProtocol = Nothing , _ocAccessToken = Nothing @@ -119,6 +122,7 @@ , _ocName = pOcName_ , _ocCallback = Nothing } + -- | V1 error format. ocXgafv :: Lens' OperationsCancel (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudShell/Operations/Delete.hs b/gen/Network/Google/Resource/CloudShell/Operations/Delete.hs --- a/gen/Network/Google/Resource/CloudShell/Operations/Delete.hs +++ b/gen/Network/Google/Resource/CloudShell/Operations/Delete.hs @@ -65,15 +65,18 @@ -- \`google.rpc.Code.UNIMPLEMENTED\`. -- -- /See:/ 'operationsDelete' smart constructor. -data OperationsDelete = OperationsDelete' +data OperationsDelete = + OperationsDelete' { _odXgafv :: !(Maybe Xgafv) , _odUploadProtocol :: !(Maybe Text) , _odAccessToken :: !(Maybe Text) , _odUploadType :: !(Maybe Text) , _odName :: !Text , _odCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -93,7 +96,7 @@ :: Text -- ^ 'odName' -> OperationsDelete operationsDelete pOdName_ = - OperationsDelete' + OperationsDelete' { _odXgafv = Nothing , _odUploadProtocol = Nothing , _odAccessToken = Nothing @@ -101,6 +104,7 @@ , _odName = pOdName_ , _odCallback = Nothing } + -- | V1 error format. odXgafv :: Lens' OperationsDelete (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudShell/Operations/Get.hs b/gen/Network/Google/Resource/CloudShell/Operations/Get.hs --- a/gen/Network/Google/Resource/CloudShell/Operations/Get.hs +++ b/gen/Network/Google/Resource/CloudShell/Operations/Get.hs @@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'operationsGet' smart constructor. -data OperationsGet = OperationsGet' +data OperationsGet = + OperationsGet' { _ogXgafv :: !(Maybe Xgafv) , _ogUploadProtocol :: !(Maybe Text) , _ogAccessToken :: !(Maybe Text) , _ogUploadType :: !(Maybe Text) , _ogName :: !Text , _ogCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -91,7 +94,7 @@ :: Text -- ^ 'ogName' -> OperationsGet operationsGet pOgName_ = - OperationsGet' + OperationsGet' { _ogXgafv = Nothing , _ogUploadProtocol = Nothing , _ogAccessToken = Nothing @@ -99,6 +102,7 @@ , _ogName = pOgName_ , _ogCallback = Nothing } + -- | V1 error format. ogXgafv :: Lens' OperationsGet (Maybe Xgafv) diff --git a/gen/Network/Google/Resource/CloudShell/Operations/List.hs b/gen/Network/Google/Resource/CloudShell/Operations/List.hs --- a/gen/Network/Google/Resource/CloudShell/Operations/List.hs +++ b/gen/Network/Google/Resource/CloudShell/Operations/List.hs @@ -84,7 +84,8 @@ -- id. -- -- /See:/ 'operationsList' smart constructor. -data OperationsList = OperationsList' +data OperationsList = + OperationsList' { _olXgafv :: !(Maybe Xgafv) , _olUploadProtocol :: !(Maybe Text) , _olAccessToken :: !(Maybe Text) @@ -94,8 +95,10 @@ , _olPageToken :: !(Maybe Text) , _olPageSize :: !(Maybe (Textual Int32)) , _olCallback :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsList' 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 -- ^ 'olName' -> OperationsList operationsList pOlName_ = - OperationsList' + OperationsList' { _olXgafv = Nothing , _olUploadProtocol = Nothing , _olAccessToken = Nothing @@ -132,6 +135,7 @@ , _olPageSize = Nothing , _olCallback = Nothing } + -- | V1 error format. olXgafv :: Lens' OperationsList (Maybe Xgafv) diff --git a/gogol-cloudshell.cabal b/gogol-cloudshell.cabal --- a/gogol-cloudshell.cabal +++ b/gogol-cloudshell.cabal @@ -1,5 +1,5 @@ name: gogol-cloudshell -version: 0.4.0 +version: 0.5.0 synopsis: Google Cloud Shell SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -46,5 +46,5 @@ , Network.Google.CloudShell.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5