packages feed

gogol-cloudshell 0.4.0 → 0.5.0

raw patch · 8 files changed

+111/−74 lines, 8 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/CloudShell/Types.hs view
@@ -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
gen/Network/Google/CloudShell/Types/Product.hs view
@@ -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)
gen/Network/Google/Resource/CloudShell/Operations/Cancel.hs view
@@ -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)
gen/Network/Google/Resource/CloudShell/Operations/Delete.hs view
@@ -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)
gen/Network/Google/Resource/CloudShell/Operations/Get.hs view
@@ -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)
gen/Network/Google/Resource/CloudShell/Operations/List.hs view
@@ -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)
gogol-cloudshell.cabal view
@@ -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