{-# 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.EFS.CreateFileSystem
(
CreateFileSystem (..),
newCreateFileSystem,
createFileSystem_availabilityZoneName,
createFileSystem_backup,
createFileSystem_encrypted,
createFileSystem_kmsKeyId,
createFileSystem_performanceMode,
createFileSystem_provisionedThroughputInMibps,
createFileSystem_tags,
createFileSystem_throughputMode,
createFileSystem_creationToken,
FileSystemDescription (..),
newFileSystemDescription,
fileSystemDescription_availabilityZoneId,
fileSystemDescription_availabilityZoneName,
fileSystemDescription_encrypted,
fileSystemDescription_fileSystemArn,
fileSystemDescription_kmsKeyId,
fileSystemDescription_name,
fileSystemDescription_provisionedThroughputInMibps,
fileSystemDescription_throughputMode,
fileSystemDescription_ownerId,
fileSystemDescription_creationToken,
fileSystemDescription_fileSystemId,
fileSystemDescription_creationTime,
fileSystemDescription_lifeCycleState,
fileSystemDescription_numberOfMountTargets,
fileSystemDescription_sizeInBytes,
fileSystemDescription_performanceMode,
fileSystemDescription_tags,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EFS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateFileSystem = CreateFileSystem'
{
CreateFileSystem -> Maybe Text
availabilityZoneName :: Prelude.Maybe Prelude.Text,
CreateFileSystem -> Maybe Bool
backup :: Prelude.Maybe Prelude.Bool,
CreateFileSystem -> Maybe Bool
encrypted :: Prelude.Maybe Prelude.Bool,
CreateFileSystem -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateFileSystem -> Maybe PerformanceMode
performanceMode :: Prelude.Maybe PerformanceMode,
CreateFileSystem -> Maybe Double
provisionedThroughputInMibps :: Prelude.Maybe Prelude.Double,
CreateFileSystem -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateFileSystem -> Maybe ThroughputMode
throughputMode :: Prelude.Maybe ThroughputMode,
CreateFileSystem -> Text
creationToken :: Prelude.Text
}
deriving (CreateFileSystem -> CreateFileSystem -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateFileSystem -> CreateFileSystem -> Bool
$c/= :: CreateFileSystem -> CreateFileSystem -> Bool
== :: CreateFileSystem -> CreateFileSystem -> Bool
$c== :: CreateFileSystem -> CreateFileSystem -> Bool
Prelude.Eq, ReadPrec [CreateFileSystem]
ReadPrec CreateFileSystem
Int -> ReadS CreateFileSystem
ReadS [CreateFileSystem]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateFileSystem]
$creadListPrec :: ReadPrec [CreateFileSystem]
readPrec :: ReadPrec CreateFileSystem
$creadPrec :: ReadPrec CreateFileSystem
readList :: ReadS [CreateFileSystem]
$creadList :: ReadS [CreateFileSystem]
readsPrec :: Int -> ReadS CreateFileSystem
$creadsPrec :: Int -> ReadS CreateFileSystem
Prelude.Read, Int -> CreateFileSystem -> ShowS
[CreateFileSystem] -> ShowS
CreateFileSystem -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateFileSystem] -> ShowS
$cshowList :: [CreateFileSystem] -> ShowS
show :: CreateFileSystem -> String
$cshow :: CreateFileSystem -> String
showsPrec :: Int -> CreateFileSystem -> ShowS
$cshowsPrec :: Int -> CreateFileSystem -> ShowS
Prelude.Show, forall x. Rep CreateFileSystem x -> CreateFileSystem
forall x. CreateFileSystem -> Rep CreateFileSystem x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateFileSystem x -> CreateFileSystem
$cfrom :: forall x. CreateFileSystem -> Rep CreateFileSystem x
Prelude.Generic)
newCreateFileSystem ::
Prelude.Text ->
CreateFileSystem
newCreateFileSystem :: Text -> CreateFileSystem
newCreateFileSystem Text
pCreationToken_ =
CreateFileSystem'
{ $sel:availabilityZoneName:CreateFileSystem' :: Maybe Text
availabilityZoneName =
forall a. Maybe a
Prelude.Nothing,
$sel:backup:CreateFileSystem' :: Maybe Bool
backup = forall a. Maybe a
Prelude.Nothing,
$sel:encrypted:CreateFileSystem' :: Maybe Bool
encrypted = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:CreateFileSystem' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:performanceMode:CreateFileSystem' :: Maybe PerformanceMode
performanceMode = forall a. Maybe a
Prelude.Nothing,
$sel:provisionedThroughputInMibps:CreateFileSystem' :: Maybe Double
provisionedThroughputInMibps = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateFileSystem' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:throughputMode:CreateFileSystem' :: Maybe ThroughputMode
throughputMode = forall a. Maybe a
Prelude.Nothing,
$sel:creationToken:CreateFileSystem' :: Text
creationToken = Text
pCreationToken_
}
createFileSystem_availabilityZoneName :: Lens.Lens' CreateFileSystem (Prelude.Maybe Prelude.Text)
createFileSystem_availabilityZoneName :: Lens' CreateFileSystem (Maybe Text)
createFileSystem_availabilityZoneName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe Text
availabilityZoneName :: Maybe Text
$sel:availabilityZoneName:CreateFileSystem' :: CreateFileSystem -> Maybe Text
availabilityZoneName} -> Maybe Text
availabilityZoneName) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe Text
a -> CreateFileSystem
s {$sel:availabilityZoneName:CreateFileSystem' :: Maybe Text
availabilityZoneName = Maybe Text
a} :: CreateFileSystem)
createFileSystem_backup :: Lens.Lens' CreateFileSystem (Prelude.Maybe Prelude.Bool)
createFileSystem_backup :: Lens' CreateFileSystem (Maybe Bool)
createFileSystem_backup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe Bool
backup :: Maybe Bool
$sel:backup:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
backup} -> Maybe Bool
backup) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe Bool
a -> CreateFileSystem
s {$sel:backup:CreateFileSystem' :: Maybe Bool
backup = Maybe Bool
a} :: CreateFileSystem)
createFileSystem_encrypted :: Lens.Lens' CreateFileSystem (Prelude.Maybe Prelude.Bool)
createFileSystem_encrypted :: Lens' CreateFileSystem (Maybe Bool)
createFileSystem_encrypted = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe Bool
encrypted :: Maybe Bool
$sel:encrypted:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
encrypted} -> Maybe Bool
encrypted) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe Bool
a -> CreateFileSystem
s {$sel:encrypted:CreateFileSystem' :: Maybe Bool
encrypted = Maybe Bool
a} :: CreateFileSystem)
createFileSystem_kmsKeyId :: Lens.Lens' CreateFileSystem (Prelude.Maybe Prelude.Text)
createFileSystem_kmsKeyId :: Lens' CreateFileSystem (Maybe Text)
createFileSystem_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateFileSystem' :: CreateFileSystem -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe Text
a -> CreateFileSystem
s {$sel:kmsKeyId:CreateFileSystem' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateFileSystem)
createFileSystem_performanceMode :: Lens.Lens' CreateFileSystem (Prelude.Maybe PerformanceMode)
createFileSystem_performanceMode :: Lens' CreateFileSystem (Maybe PerformanceMode)
createFileSystem_performanceMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe PerformanceMode
performanceMode :: Maybe PerformanceMode
$sel:performanceMode:CreateFileSystem' :: CreateFileSystem -> Maybe PerformanceMode
performanceMode} -> Maybe PerformanceMode
performanceMode) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe PerformanceMode
a -> CreateFileSystem
s {$sel:performanceMode:CreateFileSystem' :: Maybe PerformanceMode
performanceMode = Maybe PerformanceMode
a} :: CreateFileSystem)
createFileSystem_provisionedThroughputInMibps :: Lens.Lens' CreateFileSystem (Prelude.Maybe Prelude.Double)
createFileSystem_provisionedThroughputInMibps :: Lens' CreateFileSystem (Maybe Double)
createFileSystem_provisionedThroughputInMibps = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe Double
provisionedThroughputInMibps :: Maybe Double
$sel:provisionedThroughputInMibps:CreateFileSystem' :: CreateFileSystem -> Maybe Double
provisionedThroughputInMibps} -> Maybe Double
provisionedThroughputInMibps) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe Double
a -> CreateFileSystem
s {$sel:provisionedThroughputInMibps:CreateFileSystem' :: Maybe Double
provisionedThroughputInMibps = Maybe Double
a} :: CreateFileSystem)
createFileSystem_tags :: Lens.Lens' CreateFileSystem (Prelude.Maybe [Tag])
createFileSystem_tags :: Lens' CreateFileSystem (Maybe [Tag])
createFileSystem_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateFileSystem' :: CreateFileSystem -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe [Tag]
a -> CreateFileSystem
s {$sel:tags:CreateFileSystem' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateFileSystem) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createFileSystem_throughputMode :: Lens.Lens' CreateFileSystem (Prelude.Maybe ThroughputMode)
createFileSystem_throughputMode :: Lens' CreateFileSystem (Maybe ThroughputMode)
createFileSystem_throughputMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Maybe ThroughputMode
throughputMode :: Maybe ThroughputMode
$sel:throughputMode:CreateFileSystem' :: CreateFileSystem -> Maybe ThroughputMode
throughputMode} -> Maybe ThroughputMode
throughputMode) (\s :: CreateFileSystem
s@CreateFileSystem' {} Maybe ThroughputMode
a -> CreateFileSystem
s {$sel:throughputMode:CreateFileSystem' :: Maybe ThroughputMode
throughputMode = Maybe ThroughputMode
a} :: CreateFileSystem)
createFileSystem_creationToken :: Lens.Lens' CreateFileSystem Prelude.Text
createFileSystem_creationToken :: Lens' CreateFileSystem Text
createFileSystem_creationToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFileSystem' {Text
creationToken :: Text
$sel:creationToken:CreateFileSystem' :: CreateFileSystem -> Text
creationToken} -> Text
creationToken) (\s :: CreateFileSystem
s@CreateFileSystem' {} Text
a -> CreateFileSystem
s {$sel:creationToken:CreateFileSystem' :: Text
creationToken = Text
a} :: CreateFileSystem)
instance Core.AWSRequest CreateFileSystem where
type
AWSResponse CreateFileSystem =
FileSystemDescription
request :: (Service -> Service)
-> CreateFileSystem -> Request CreateFileSystem
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 CreateFileSystem
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateFileSystem)))
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 -> forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
instance Prelude.Hashable CreateFileSystem where
hashWithSalt :: Int -> CreateFileSystem -> Int
hashWithSalt Int
_salt CreateFileSystem' {Maybe Bool
Maybe Double
Maybe [Tag]
Maybe Text
Maybe PerformanceMode
Maybe ThroughputMode
Text
creationToken :: Text
throughputMode :: Maybe ThroughputMode
tags :: Maybe [Tag]
provisionedThroughputInMibps :: Maybe Double
performanceMode :: Maybe PerformanceMode
kmsKeyId :: Maybe Text
encrypted :: Maybe Bool
backup :: Maybe Bool
availabilityZoneName :: Maybe Text
$sel:creationToken:CreateFileSystem' :: CreateFileSystem -> Text
$sel:throughputMode:CreateFileSystem' :: CreateFileSystem -> Maybe ThroughputMode
$sel:tags:CreateFileSystem' :: CreateFileSystem -> Maybe [Tag]
$sel:provisionedThroughputInMibps:CreateFileSystem' :: CreateFileSystem -> Maybe Double
$sel:performanceMode:CreateFileSystem' :: CreateFileSystem -> Maybe PerformanceMode
$sel:kmsKeyId:CreateFileSystem' :: CreateFileSystem -> Maybe Text
$sel:encrypted:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:backup:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:availabilityZoneName:CreateFileSystem' :: CreateFileSystem -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
availabilityZoneName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
backup
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
encrypted
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PerformanceMode
performanceMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
provisionedThroughputInMibps
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ThroughputMode
throughputMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
creationToken
instance Prelude.NFData CreateFileSystem where
rnf :: CreateFileSystem -> ()
rnf CreateFileSystem' {Maybe Bool
Maybe Double
Maybe [Tag]
Maybe Text
Maybe PerformanceMode
Maybe ThroughputMode
Text
creationToken :: Text
throughputMode :: Maybe ThroughputMode
tags :: Maybe [Tag]
provisionedThroughputInMibps :: Maybe Double
performanceMode :: Maybe PerformanceMode
kmsKeyId :: Maybe Text
encrypted :: Maybe Bool
backup :: Maybe Bool
availabilityZoneName :: Maybe Text
$sel:creationToken:CreateFileSystem' :: CreateFileSystem -> Text
$sel:throughputMode:CreateFileSystem' :: CreateFileSystem -> Maybe ThroughputMode
$sel:tags:CreateFileSystem' :: CreateFileSystem -> Maybe [Tag]
$sel:provisionedThroughputInMibps:CreateFileSystem' :: CreateFileSystem -> Maybe Double
$sel:performanceMode:CreateFileSystem' :: CreateFileSystem -> Maybe PerformanceMode
$sel:kmsKeyId:CreateFileSystem' :: CreateFileSystem -> Maybe Text
$sel:encrypted:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:backup:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:availabilityZoneName:CreateFileSystem' :: CreateFileSystem -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
availabilityZoneName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
backup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
encrypted
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PerformanceMode
performanceMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
provisionedThroughputInMibps
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ThroughputMode
throughputMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
creationToken
instance Data.ToHeaders CreateFileSystem where
toHeaders :: CreateFileSystem -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON CreateFileSystem where
toJSON :: CreateFileSystem -> Value
toJSON CreateFileSystem' {Maybe Bool
Maybe Double
Maybe [Tag]
Maybe Text
Maybe PerformanceMode
Maybe ThroughputMode
Text
creationToken :: Text
throughputMode :: Maybe ThroughputMode
tags :: Maybe [Tag]
provisionedThroughputInMibps :: Maybe Double
performanceMode :: Maybe PerformanceMode
kmsKeyId :: Maybe Text
encrypted :: Maybe Bool
backup :: Maybe Bool
availabilityZoneName :: Maybe Text
$sel:creationToken:CreateFileSystem' :: CreateFileSystem -> Text
$sel:throughputMode:CreateFileSystem' :: CreateFileSystem -> Maybe ThroughputMode
$sel:tags:CreateFileSystem' :: CreateFileSystem -> Maybe [Tag]
$sel:provisionedThroughputInMibps:CreateFileSystem' :: CreateFileSystem -> Maybe Double
$sel:performanceMode:CreateFileSystem' :: CreateFileSystem -> Maybe PerformanceMode
$sel:kmsKeyId:CreateFileSystem' :: CreateFileSystem -> Maybe Text
$sel:encrypted:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:backup:CreateFileSystem' :: CreateFileSystem -> Maybe Bool
$sel:availabilityZoneName:CreateFileSystem' :: CreateFileSystem -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AvailabilityZoneName" 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
availabilityZoneName,
(Key
"Backup" 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 Bool
backup,
(Key
"Encrypted" 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 Bool
encrypted,
(Key
"KmsKeyId" 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
kmsKeyId,
(Key
"PerformanceMode" 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 PerformanceMode
performanceMode,
(Key
"ProvisionedThroughputInMibps" 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 Double
provisionedThroughputInMibps,
(Key
"Tags" 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 [Tag]
tags,
(Key
"ThroughputMode" 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 ThroughputMode
throughputMode,
forall a. a -> Maybe a
Prelude.Just
(Key
"CreationToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
creationToken)
]
)
instance Data.ToPath CreateFileSystem where
toPath :: CreateFileSystem -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/2015-02-01/file-systems"
instance Data.ToQuery CreateFileSystem where
toQuery :: CreateFileSystem -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty