{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.FSx.DeleteFileSystem
(
DeleteFileSystem (..),
newDeleteFileSystem,
deleteFileSystem_clientRequestToken,
deleteFileSystem_lustreConfiguration,
deleteFileSystem_openZFSConfiguration,
deleteFileSystem_windowsConfiguration,
deleteFileSystem_fileSystemId,
DeleteFileSystemResponse (..),
newDeleteFileSystemResponse,
deleteFileSystemResponse_fileSystemId,
deleteFileSystemResponse_lifecycle,
deleteFileSystemResponse_lustreResponse,
deleteFileSystemResponse_openZFSResponse,
deleteFileSystemResponse_windowsResponse,
deleteFileSystemResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.FSx.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteFileSystem = DeleteFileSystem'
{
DeleteFileSystem -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
DeleteFileSystem -> Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration :: Prelude.Maybe DeleteFileSystemLustreConfiguration,
DeleteFileSystem -> Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration :: Prelude.Maybe DeleteFileSystemOpenZFSConfiguration,
DeleteFileSystem -> Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration :: Prelude.Maybe DeleteFileSystemWindowsConfiguration,
DeleteFileSystem -> Text
fileSystemId :: Prelude.Text
}
deriving (DeleteFileSystem -> DeleteFileSystem -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFileSystem -> DeleteFileSystem -> Bool
$c/= :: DeleteFileSystem -> DeleteFileSystem -> Bool
== :: DeleteFileSystem -> DeleteFileSystem -> Bool
$c== :: DeleteFileSystem -> DeleteFileSystem -> Bool
Prelude.Eq, ReadPrec [DeleteFileSystem]
ReadPrec DeleteFileSystem
Int -> ReadS DeleteFileSystem
ReadS [DeleteFileSystem]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFileSystem]
$creadListPrec :: ReadPrec [DeleteFileSystem]
readPrec :: ReadPrec DeleteFileSystem
$creadPrec :: ReadPrec DeleteFileSystem
readList :: ReadS [DeleteFileSystem]
$creadList :: ReadS [DeleteFileSystem]
readsPrec :: Int -> ReadS DeleteFileSystem
$creadsPrec :: Int -> ReadS DeleteFileSystem
Prelude.Read, Int -> DeleteFileSystem -> ShowS
[DeleteFileSystem] -> ShowS
DeleteFileSystem -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFileSystem] -> ShowS
$cshowList :: [DeleteFileSystem] -> ShowS
show :: DeleteFileSystem -> String
$cshow :: DeleteFileSystem -> String
showsPrec :: Int -> DeleteFileSystem -> ShowS
$cshowsPrec :: Int -> DeleteFileSystem -> ShowS
Prelude.Show, forall x. Rep DeleteFileSystem x -> DeleteFileSystem
forall x. DeleteFileSystem -> Rep DeleteFileSystem x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteFileSystem x -> DeleteFileSystem
$cfrom :: forall x. DeleteFileSystem -> Rep DeleteFileSystem x
Prelude.Generic)
newDeleteFileSystem ::
Prelude.Text ->
DeleteFileSystem
newDeleteFileSystem :: Text -> DeleteFileSystem
newDeleteFileSystem Text
pFileSystemId_ =
DeleteFileSystem'
{ $sel:clientRequestToken:DeleteFileSystem' :: Maybe Text
clientRequestToken =
forall a. Maybe a
Prelude.Nothing,
$sel:lustreConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:openZFSConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:windowsConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:fileSystemId:DeleteFileSystem' :: Text
fileSystemId = Text
pFileSystemId_
}
deleteFileSystem_clientRequestToken :: Lens.Lens' DeleteFileSystem (Prelude.Maybe Prelude.Text)
deleteFileSystem_clientRequestToken :: Lens' DeleteFileSystem (Maybe Text)
deleteFileSystem_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystem' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:DeleteFileSystem' :: DeleteFileSystem -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: DeleteFileSystem
s@DeleteFileSystem' {} Maybe Text
a -> DeleteFileSystem
s {$sel:clientRequestToken:DeleteFileSystem' :: Maybe Text
clientRequestToken = Maybe Text
a} :: DeleteFileSystem)
deleteFileSystem_lustreConfiguration :: Lens.Lens' DeleteFileSystem (Prelude.Maybe DeleteFileSystemLustreConfiguration)
deleteFileSystem_lustreConfiguration :: Lens' DeleteFileSystem (Maybe DeleteFileSystemLustreConfiguration)
deleteFileSystem_lustreConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystem' {Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration :: Maybe DeleteFileSystemLustreConfiguration
$sel:lustreConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration} -> Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration) (\s :: DeleteFileSystem
s@DeleteFileSystem' {} Maybe DeleteFileSystemLustreConfiguration
a -> DeleteFileSystem
s {$sel:lustreConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration = Maybe DeleteFileSystemLustreConfiguration
a} :: DeleteFileSystem)
deleteFileSystem_openZFSConfiguration :: Lens.Lens' DeleteFileSystem (Prelude.Maybe DeleteFileSystemOpenZFSConfiguration)
deleteFileSystem_openZFSConfiguration :: Lens' DeleteFileSystem (Maybe DeleteFileSystemOpenZFSConfiguration)
deleteFileSystem_openZFSConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystem' {Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration :: Maybe DeleteFileSystemOpenZFSConfiguration
$sel:openZFSConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration} -> Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration) (\s :: DeleteFileSystem
s@DeleteFileSystem' {} Maybe DeleteFileSystemOpenZFSConfiguration
a -> DeleteFileSystem
s {$sel:openZFSConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration = Maybe DeleteFileSystemOpenZFSConfiguration
a} :: DeleteFileSystem)
deleteFileSystem_windowsConfiguration :: Lens.Lens' DeleteFileSystem (Prelude.Maybe DeleteFileSystemWindowsConfiguration)
deleteFileSystem_windowsConfiguration :: Lens' DeleteFileSystem (Maybe DeleteFileSystemWindowsConfiguration)
deleteFileSystem_windowsConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystem' {Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration :: Maybe DeleteFileSystemWindowsConfiguration
$sel:windowsConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration} -> Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration) (\s :: DeleteFileSystem
s@DeleteFileSystem' {} Maybe DeleteFileSystemWindowsConfiguration
a -> DeleteFileSystem
s {$sel:windowsConfiguration:DeleteFileSystem' :: Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration = Maybe DeleteFileSystemWindowsConfiguration
a} :: DeleteFileSystem)
deleteFileSystem_fileSystemId :: Lens.Lens' DeleteFileSystem Prelude.Text
deleteFileSystem_fileSystemId :: Lens' DeleteFileSystem Text
deleteFileSystem_fileSystemId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystem' {Text
fileSystemId :: Text
$sel:fileSystemId:DeleteFileSystem' :: DeleteFileSystem -> Text
fileSystemId} -> Text
fileSystemId) (\s :: DeleteFileSystem
s@DeleteFileSystem' {} Text
a -> DeleteFileSystem
s {$sel:fileSystemId:DeleteFileSystem' :: Text
fileSystemId = Text
a} :: DeleteFileSystem)
instance Core.AWSRequest DeleteFileSystem where
type
AWSResponse DeleteFileSystem =
DeleteFileSystemResponse
request :: (Service -> Service)
-> DeleteFileSystem -> Request DeleteFileSystem
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteFileSystem
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteFileSystem)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe FileSystemLifecycle
-> Maybe DeleteFileSystemLustreResponse
-> Maybe DeleteFileSystemOpenZFSResponse
-> Maybe DeleteFileSystemWindowsResponse
-> Int
-> DeleteFileSystemResponse
DeleteFileSystemResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"FileSystemId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Lifecycle")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LustreResponse")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"OpenZFSResponse")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"WindowsResponse")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DeleteFileSystem where
hashWithSalt :: Int -> DeleteFileSystem -> Int
hashWithSalt Int
_salt DeleteFileSystem' {Maybe Text
Maybe DeleteFileSystemWindowsConfiguration
Maybe DeleteFileSystemOpenZFSConfiguration
Maybe DeleteFileSystemLustreConfiguration
Text
fileSystemId :: Text
windowsConfiguration :: Maybe DeleteFileSystemWindowsConfiguration
openZFSConfiguration :: Maybe DeleteFileSystemOpenZFSConfiguration
lustreConfiguration :: Maybe DeleteFileSystemLustreConfiguration
clientRequestToken :: Maybe Text
$sel:fileSystemId:DeleteFileSystem' :: DeleteFileSystem -> Text
$sel:windowsConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemWindowsConfiguration
$sel:openZFSConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemOpenZFSConfiguration
$sel:lustreConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemLustreConfiguration
$sel:clientRequestToken:DeleteFileSystem' :: DeleteFileSystem -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
fileSystemId
instance Prelude.NFData DeleteFileSystem where
rnf :: DeleteFileSystem -> ()
rnf DeleteFileSystem' {Maybe Text
Maybe DeleteFileSystemWindowsConfiguration
Maybe DeleteFileSystemOpenZFSConfiguration
Maybe DeleteFileSystemLustreConfiguration
Text
fileSystemId :: Text
windowsConfiguration :: Maybe DeleteFileSystemWindowsConfiguration
openZFSConfiguration :: Maybe DeleteFileSystemOpenZFSConfiguration
lustreConfiguration :: Maybe DeleteFileSystemLustreConfiguration
clientRequestToken :: Maybe Text
$sel:fileSystemId:DeleteFileSystem' :: DeleteFileSystem -> Text
$sel:windowsConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemWindowsConfiguration
$sel:openZFSConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemOpenZFSConfiguration
$sel:lustreConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemLustreConfiguration
$sel:clientRequestToken:DeleteFileSystem' :: DeleteFileSystem -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
fileSystemId
instance Data.ToHeaders DeleteFileSystem where
toHeaders :: DeleteFileSystem -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSSimbaAPIService_v20180301.DeleteFileSystem" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteFileSystem where
toJSON :: DeleteFileSystem -> Value
toJSON DeleteFileSystem' {Maybe Text
Maybe DeleteFileSystemWindowsConfiguration
Maybe DeleteFileSystemOpenZFSConfiguration
Maybe DeleteFileSystemLustreConfiguration
Text
fileSystemId :: Text
windowsConfiguration :: Maybe DeleteFileSystemWindowsConfiguration
openZFSConfiguration :: Maybe DeleteFileSystemOpenZFSConfiguration
lustreConfiguration :: Maybe DeleteFileSystemLustreConfiguration
clientRequestToken :: Maybe Text
$sel:fileSystemId:DeleteFileSystem' :: DeleteFileSystem -> Text
$sel:windowsConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemWindowsConfiguration
$sel:openZFSConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemOpenZFSConfiguration
$sel:lustreConfiguration:DeleteFileSystem' :: DeleteFileSystem -> Maybe DeleteFileSystemLustreConfiguration
$sel:clientRequestToken:DeleteFileSystem' :: DeleteFileSystem -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ClientRequestToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientRequestToken,
(Key
"LustreConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DeleteFileSystemLustreConfiguration
lustreConfiguration,
(Key
"OpenZFSConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DeleteFileSystemOpenZFSConfiguration
openZFSConfiguration,
(Key
"WindowsConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DeleteFileSystemWindowsConfiguration
windowsConfiguration,
forall a. a -> Maybe a
Prelude.Just (Key
"FileSystemId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
fileSystemId)
]
)
instance Data.ToPath DeleteFileSystem where
toPath :: DeleteFileSystem -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteFileSystem where
toQuery :: DeleteFileSystem -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteFileSystemResponse = DeleteFileSystemResponse'
{
DeleteFileSystemResponse -> Maybe Text
fileSystemId :: Prelude.Maybe Prelude.Text,
DeleteFileSystemResponse -> Maybe FileSystemLifecycle
lifecycle :: Prelude.Maybe FileSystemLifecycle,
DeleteFileSystemResponse -> Maybe DeleteFileSystemLustreResponse
lustreResponse :: Prelude.Maybe DeleteFileSystemLustreResponse,
DeleteFileSystemResponse -> Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse :: Prelude.Maybe DeleteFileSystemOpenZFSResponse,
DeleteFileSystemResponse -> Maybe DeleteFileSystemWindowsResponse
windowsResponse :: Prelude.Maybe DeleteFileSystemWindowsResponse,
DeleteFileSystemResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteFileSystemResponse -> DeleteFileSystemResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFileSystemResponse -> DeleteFileSystemResponse -> Bool
$c/= :: DeleteFileSystemResponse -> DeleteFileSystemResponse -> Bool
== :: DeleteFileSystemResponse -> DeleteFileSystemResponse -> Bool
$c== :: DeleteFileSystemResponse -> DeleteFileSystemResponse -> Bool
Prelude.Eq, ReadPrec [DeleteFileSystemResponse]
ReadPrec DeleteFileSystemResponse
Int -> ReadS DeleteFileSystemResponse
ReadS [DeleteFileSystemResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFileSystemResponse]
$creadListPrec :: ReadPrec [DeleteFileSystemResponse]
readPrec :: ReadPrec DeleteFileSystemResponse
$creadPrec :: ReadPrec DeleteFileSystemResponse
readList :: ReadS [DeleteFileSystemResponse]
$creadList :: ReadS [DeleteFileSystemResponse]
readsPrec :: Int -> ReadS DeleteFileSystemResponse
$creadsPrec :: Int -> ReadS DeleteFileSystemResponse
Prelude.Read, Int -> DeleteFileSystemResponse -> ShowS
[DeleteFileSystemResponse] -> ShowS
DeleteFileSystemResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFileSystemResponse] -> ShowS
$cshowList :: [DeleteFileSystemResponse] -> ShowS
show :: DeleteFileSystemResponse -> String
$cshow :: DeleteFileSystemResponse -> String
showsPrec :: Int -> DeleteFileSystemResponse -> ShowS
$cshowsPrec :: Int -> DeleteFileSystemResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteFileSystemResponse x -> DeleteFileSystemResponse
forall x.
DeleteFileSystemResponse -> Rep DeleteFileSystemResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFileSystemResponse x -> DeleteFileSystemResponse
$cfrom :: forall x.
DeleteFileSystemResponse -> Rep DeleteFileSystemResponse x
Prelude.Generic)
newDeleteFileSystemResponse ::
Prelude.Int ->
DeleteFileSystemResponse
newDeleteFileSystemResponse :: Int -> DeleteFileSystemResponse
newDeleteFileSystemResponse Int
pHttpStatus_ =
DeleteFileSystemResponse'
{ $sel:fileSystemId:DeleteFileSystemResponse' :: Maybe Text
fileSystemId =
forall a. Maybe a
Prelude.Nothing,
$sel:lifecycle:DeleteFileSystemResponse' :: Maybe FileSystemLifecycle
lifecycle = forall a. Maybe a
Prelude.Nothing,
$sel:lustreResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemLustreResponse
lustreResponse = forall a. Maybe a
Prelude.Nothing,
$sel:openZFSResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse = forall a. Maybe a
Prelude.Nothing,
$sel:windowsResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemWindowsResponse
windowsResponse = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteFileSystemResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteFileSystemResponse_fileSystemId :: Lens.Lens' DeleteFileSystemResponse (Prelude.Maybe Prelude.Text)
deleteFileSystemResponse_fileSystemId :: Lens' DeleteFileSystemResponse (Maybe Text)
deleteFileSystemResponse_fileSystemId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Maybe Text
fileSystemId :: Maybe Text
$sel:fileSystemId:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe Text
fileSystemId} -> Maybe Text
fileSystemId) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Maybe Text
a -> DeleteFileSystemResponse
s {$sel:fileSystemId:DeleteFileSystemResponse' :: Maybe Text
fileSystemId = Maybe Text
a} :: DeleteFileSystemResponse)
deleteFileSystemResponse_lifecycle :: Lens.Lens' DeleteFileSystemResponse (Prelude.Maybe FileSystemLifecycle)
deleteFileSystemResponse_lifecycle :: Lens' DeleteFileSystemResponse (Maybe FileSystemLifecycle)
deleteFileSystemResponse_lifecycle = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Maybe FileSystemLifecycle
lifecycle :: Maybe FileSystemLifecycle
$sel:lifecycle:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe FileSystemLifecycle
lifecycle} -> Maybe FileSystemLifecycle
lifecycle) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Maybe FileSystemLifecycle
a -> DeleteFileSystemResponse
s {$sel:lifecycle:DeleteFileSystemResponse' :: Maybe FileSystemLifecycle
lifecycle = Maybe FileSystemLifecycle
a} :: DeleteFileSystemResponse)
deleteFileSystemResponse_lustreResponse :: Lens.Lens' DeleteFileSystemResponse (Prelude.Maybe DeleteFileSystemLustreResponse)
deleteFileSystemResponse_lustreResponse :: Lens'
DeleteFileSystemResponse (Maybe DeleteFileSystemLustreResponse)
deleteFileSystemResponse_lustreResponse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Maybe DeleteFileSystemLustreResponse
lustreResponse :: Maybe DeleteFileSystemLustreResponse
$sel:lustreResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemLustreResponse
lustreResponse} -> Maybe DeleteFileSystemLustreResponse
lustreResponse) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Maybe DeleteFileSystemLustreResponse
a -> DeleteFileSystemResponse
s {$sel:lustreResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemLustreResponse
lustreResponse = Maybe DeleteFileSystemLustreResponse
a} :: DeleteFileSystemResponse)
deleteFileSystemResponse_openZFSResponse :: Lens.Lens' DeleteFileSystemResponse (Prelude.Maybe DeleteFileSystemOpenZFSResponse)
deleteFileSystemResponse_openZFSResponse :: Lens'
DeleteFileSystemResponse (Maybe DeleteFileSystemOpenZFSResponse)
deleteFileSystemResponse_openZFSResponse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse :: Maybe DeleteFileSystemOpenZFSResponse
$sel:openZFSResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse} -> Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Maybe DeleteFileSystemOpenZFSResponse
a -> DeleteFileSystemResponse
s {$sel:openZFSResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse = Maybe DeleteFileSystemOpenZFSResponse
a} :: DeleteFileSystemResponse)
deleteFileSystemResponse_windowsResponse :: Lens.Lens' DeleteFileSystemResponse (Prelude.Maybe DeleteFileSystemWindowsResponse)
deleteFileSystemResponse_windowsResponse :: Lens'
DeleteFileSystemResponse (Maybe DeleteFileSystemWindowsResponse)
deleteFileSystemResponse_windowsResponse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Maybe DeleteFileSystemWindowsResponse
windowsResponse :: Maybe DeleteFileSystemWindowsResponse
$sel:windowsResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemWindowsResponse
windowsResponse} -> Maybe DeleteFileSystemWindowsResponse
windowsResponse) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Maybe DeleteFileSystemWindowsResponse
a -> DeleteFileSystemResponse
s {$sel:windowsResponse:DeleteFileSystemResponse' :: Maybe DeleteFileSystemWindowsResponse
windowsResponse = Maybe DeleteFileSystemWindowsResponse
a} :: DeleteFileSystemResponse)
deleteFileSystemResponse_httpStatus :: Lens.Lens' DeleteFileSystemResponse Prelude.Int
deleteFileSystemResponse_httpStatus :: Lens' DeleteFileSystemResponse Int
deleteFileSystemResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFileSystemResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteFileSystemResponse
s@DeleteFileSystemResponse' {} Int
a -> DeleteFileSystemResponse
s {$sel:httpStatus:DeleteFileSystemResponse' :: Int
httpStatus = Int
a} :: DeleteFileSystemResponse)
instance Prelude.NFData DeleteFileSystemResponse where
rnf :: DeleteFileSystemResponse -> ()
rnf DeleteFileSystemResponse' {Int
Maybe Text
Maybe FileSystemLifecycle
Maybe DeleteFileSystemWindowsResponse
Maybe DeleteFileSystemOpenZFSResponse
Maybe DeleteFileSystemLustreResponse
httpStatus :: Int
windowsResponse :: Maybe DeleteFileSystemWindowsResponse
openZFSResponse :: Maybe DeleteFileSystemOpenZFSResponse
lustreResponse :: Maybe DeleteFileSystemLustreResponse
lifecycle :: Maybe FileSystemLifecycle
fileSystemId :: Maybe Text
$sel:httpStatus:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Int
$sel:windowsResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemWindowsResponse
$sel:openZFSResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemOpenZFSResponse
$sel:lustreResponse:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe DeleteFileSystemLustreResponse
$sel:lifecycle:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe FileSystemLifecycle
$sel:fileSystemId:DeleteFileSystemResponse' :: DeleteFileSystemResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
fileSystemId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FileSystemLifecycle
lifecycle
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemLustreResponse
lustreResponse
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemOpenZFSResponse
openZFSResponse
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DeleteFileSystemWindowsResponse
windowsResponse
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus