{-# 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.WorkSpaces.RegisterWorkspaceDirectory
(
RegisterWorkspaceDirectory (..),
newRegisterWorkspaceDirectory,
registerWorkspaceDirectory_enableSelfService,
registerWorkspaceDirectory_subnetIds,
registerWorkspaceDirectory_tags,
registerWorkspaceDirectory_tenancy,
registerWorkspaceDirectory_directoryId,
registerWorkspaceDirectory_enableWorkDocs,
RegisterWorkspaceDirectoryResponse (..),
newRegisterWorkspaceDirectoryResponse,
registerWorkspaceDirectoryResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.WorkSpaces.Types
data RegisterWorkspaceDirectory = RegisterWorkspaceDirectory'
{
RegisterWorkspaceDirectory -> Maybe Bool
enableSelfService :: Prelude.Maybe Prelude.Bool,
RegisterWorkspaceDirectory -> Maybe [Text]
subnetIds :: Prelude.Maybe [Prelude.Text],
RegisterWorkspaceDirectory -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
RegisterWorkspaceDirectory -> Maybe Tenancy
tenancy :: Prelude.Maybe Tenancy,
RegisterWorkspaceDirectory -> Text
directoryId :: Prelude.Text,
RegisterWorkspaceDirectory -> Bool
enableWorkDocs :: Prelude.Bool
}
deriving (RegisterWorkspaceDirectory -> RegisterWorkspaceDirectory -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterWorkspaceDirectory -> RegisterWorkspaceDirectory -> Bool
$c/= :: RegisterWorkspaceDirectory -> RegisterWorkspaceDirectory -> Bool
== :: RegisterWorkspaceDirectory -> RegisterWorkspaceDirectory -> Bool
$c== :: RegisterWorkspaceDirectory -> RegisterWorkspaceDirectory -> Bool
Prelude.Eq, ReadPrec [RegisterWorkspaceDirectory]
ReadPrec RegisterWorkspaceDirectory
Int -> ReadS RegisterWorkspaceDirectory
ReadS [RegisterWorkspaceDirectory]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterWorkspaceDirectory]
$creadListPrec :: ReadPrec [RegisterWorkspaceDirectory]
readPrec :: ReadPrec RegisterWorkspaceDirectory
$creadPrec :: ReadPrec RegisterWorkspaceDirectory
readList :: ReadS [RegisterWorkspaceDirectory]
$creadList :: ReadS [RegisterWorkspaceDirectory]
readsPrec :: Int -> ReadS RegisterWorkspaceDirectory
$creadsPrec :: Int -> ReadS RegisterWorkspaceDirectory
Prelude.Read, Int -> RegisterWorkspaceDirectory -> ShowS
[RegisterWorkspaceDirectory] -> ShowS
RegisterWorkspaceDirectory -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterWorkspaceDirectory] -> ShowS
$cshowList :: [RegisterWorkspaceDirectory] -> ShowS
show :: RegisterWorkspaceDirectory -> String
$cshow :: RegisterWorkspaceDirectory -> String
showsPrec :: Int -> RegisterWorkspaceDirectory -> ShowS
$cshowsPrec :: Int -> RegisterWorkspaceDirectory -> ShowS
Prelude.Show, forall x.
Rep RegisterWorkspaceDirectory x -> RegisterWorkspaceDirectory
forall x.
RegisterWorkspaceDirectory -> Rep RegisterWorkspaceDirectory x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterWorkspaceDirectory x -> RegisterWorkspaceDirectory
$cfrom :: forall x.
RegisterWorkspaceDirectory -> Rep RegisterWorkspaceDirectory x
Prelude.Generic)
newRegisterWorkspaceDirectory ::
Prelude.Text ->
Prelude.Bool ->
RegisterWorkspaceDirectory
newRegisterWorkspaceDirectory :: Text -> Bool -> RegisterWorkspaceDirectory
newRegisterWorkspaceDirectory
Text
pDirectoryId_
Bool
pEnableWorkDocs_ =
RegisterWorkspaceDirectory'
{ $sel:enableSelfService:RegisterWorkspaceDirectory' :: Maybe Bool
enableSelfService =
forall a. Maybe a
Prelude.Nothing,
$sel:subnetIds:RegisterWorkspaceDirectory' :: Maybe [Text]
subnetIds = forall a. Maybe a
Prelude.Nothing,
$sel:tags:RegisterWorkspaceDirectory' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:tenancy:RegisterWorkspaceDirectory' :: Maybe Tenancy
tenancy = forall a. Maybe a
Prelude.Nothing,
$sel:directoryId:RegisterWorkspaceDirectory' :: Text
directoryId = Text
pDirectoryId_,
$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: Bool
enableWorkDocs = Bool
pEnableWorkDocs_
}
registerWorkspaceDirectory_enableSelfService :: Lens.Lens' RegisterWorkspaceDirectory (Prelude.Maybe Prelude.Bool)
registerWorkspaceDirectory_enableSelfService :: Lens' RegisterWorkspaceDirectory (Maybe Bool)
registerWorkspaceDirectory_enableSelfService = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Maybe Bool
enableSelfService :: Maybe Bool
$sel:enableSelfService:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Bool
enableSelfService} -> Maybe Bool
enableSelfService) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Maybe Bool
a -> RegisterWorkspaceDirectory
s {$sel:enableSelfService:RegisterWorkspaceDirectory' :: Maybe Bool
enableSelfService = Maybe Bool
a} :: RegisterWorkspaceDirectory)
registerWorkspaceDirectory_subnetIds :: Lens.Lens' RegisterWorkspaceDirectory (Prelude.Maybe [Prelude.Text])
registerWorkspaceDirectory_subnetIds :: Lens' RegisterWorkspaceDirectory (Maybe [Text])
registerWorkspaceDirectory_subnetIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Maybe [Text]
subnetIds :: Maybe [Text]
$sel:subnetIds:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Text]
subnetIds} -> Maybe [Text]
subnetIds) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Maybe [Text]
a -> RegisterWorkspaceDirectory
s {$sel:subnetIds:RegisterWorkspaceDirectory' :: Maybe [Text]
subnetIds = Maybe [Text]
a} :: RegisterWorkspaceDirectory) 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
registerWorkspaceDirectory_tags :: Lens.Lens' RegisterWorkspaceDirectory (Prelude.Maybe [Tag])
registerWorkspaceDirectory_tags :: Lens' RegisterWorkspaceDirectory (Maybe [Tag])
registerWorkspaceDirectory_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Maybe [Tag]
a -> RegisterWorkspaceDirectory
s {$sel:tags:RegisterWorkspaceDirectory' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: RegisterWorkspaceDirectory) 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
registerWorkspaceDirectory_tenancy :: Lens.Lens' RegisterWorkspaceDirectory (Prelude.Maybe Tenancy)
registerWorkspaceDirectory_tenancy :: Lens' RegisterWorkspaceDirectory (Maybe Tenancy)
registerWorkspaceDirectory_tenancy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Maybe Tenancy
tenancy :: Maybe Tenancy
$sel:tenancy:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Tenancy
tenancy} -> Maybe Tenancy
tenancy) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Maybe Tenancy
a -> RegisterWorkspaceDirectory
s {$sel:tenancy:RegisterWorkspaceDirectory' :: Maybe Tenancy
tenancy = Maybe Tenancy
a} :: RegisterWorkspaceDirectory)
registerWorkspaceDirectory_directoryId :: Lens.Lens' RegisterWorkspaceDirectory Prelude.Text
registerWorkspaceDirectory_directoryId :: Lens' RegisterWorkspaceDirectory Text
registerWorkspaceDirectory_directoryId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Text
directoryId :: Text
$sel:directoryId:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Text
directoryId} -> Text
directoryId) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Text
a -> RegisterWorkspaceDirectory
s {$sel:directoryId:RegisterWorkspaceDirectory' :: Text
directoryId = Text
a} :: RegisterWorkspaceDirectory)
registerWorkspaceDirectory_enableWorkDocs :: Lens.Lens' RegisterWorkspaceDirectory Prelude.Bool
registerWorkspaceDirectory_enableWorkDocs :: Lens' RegisterWorkspaceDirectory Bool
registerWorkspaceDirectory_enableWorkDocs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectory' {Bool
enableWorkDocs :: Bool
$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Bool
enableWorkDocs} -> Bool
enableWorkDocs) (\s :: RegisterWorkspaceDirectory
s@RegisterWorkspaceDirectory' {} Bool
a -> RegisterWorkspaceDirectory
s {$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: Bool
enableWorkDocs = Bool
a} :: RegisterWorkspaceDirectory)
instance Core.AWSRequest RegisterWorkspaceDirectory where
type
AWSResponse RegisterWorkspaceDirectory =
RegisterWorkspaceDirectoryResponse
request :: (Service -> Service)
-> RegisterWorkspaceDirectory -> Request RegisterWorkspaceDirectory
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 RegisterWorkspaceDirectory
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RegisterWorkspaceDirectory)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> RegisterWorkspaceDirectoryResponse
RegisterWorkspaceDirectoryResponse'
forall (f :: * -> *) a b. Functor 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 RegisterWorkspaceDirectory where
hashWithSalt :: Int -> RegisterWorkspaceDirectory -> Int
hashWithSalt Int
_salt RegisterWorkspaceDirectory' {Bool
Maybe Bool
Maybe [Text]
Maybe [Tag]
Maybe Tenancy
Text
enableWorkDocs :: Bool
directoryId :: Text
tenancy :: Maybe Tenancy
tags :: Maybe [Tag]
subnetIds :: Maybe [Text]
enableSelfService :: Maybe Bool
$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Bool
$sel:directoryId:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Text
$sel:tenancy:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Tenancy
$sel:tags:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Tag]
$sel:subnetIds:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Text]
$sel:enableSelfService:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableSelfService
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
subnetIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Tenancy
tenancy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
directoryId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableWorkDocs
instance Prelude.NFData RegisterWorkspaceDirectory where
rnf :: RegisterWorkspaceDirectory -> ()
rnf RegisterWorkspaceDirectory' {Bool
Maybe Bool
Maybe [Text]
Maybe [Tag]
Maybe Tenancy
Text
enableWorkDocs :: Bool
directoryId :: Text
tenancy :: Maybe Tenancy
tags :: Maybe [Tag]
subnetIds :: Maybe [Text]
enableSelfService :: Maybe Bool
$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Bool
$sel:directoryId:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Text
$sel:tenancy:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Tenancy
$sel:tags:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Tag]
$sel:subnetIds:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Text]
$sel:enableSelfService:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableSelfService
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
subnetIds
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 Tenancy
tenancy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
directoryId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
enableWorkDocs
instance Data.ToHeaders RegisterWorkspaceDirectory where
toHeaders :: RegisterWorkspaceDirectory -> 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
"WorkspacesService.RegisterWorkspaceDirectory" ::
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 RegisterWorkspaceDirectory where
toJSON :: RegisterWorkspaceDirectory -> Value
toJSON RegisterWorkspaceDirectory' {Bool
Maybe Bool
Maybe [Text]
Maybe [Tag]
Maybe Tenancy
Text
enableWorkDocs :: Bool
directoryId :: Text
tenancy :: Maybe Tenancy
tags :: Maybe [Tag]
subnetIds :: Maybe [Text]
enableSelfService :: Maybe Bool
$sel:enableWorkDocs:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Bool
$sel:directoryId:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Text
$sel:tenancy:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Tenancy
$sel:tags:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Tag]
$sel:subnetIds:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe [Text]
$sel:enableSelfService:RegisterWorkspaceDirectory' :: RegisterWorkspaceDirectory -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"EnableSelfService" 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
enableSelfService,
(Key
"SubnetIds" 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]
subnetIds,
(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
"Tenancy" 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 Tenancy
tenancy,
forall a. a -> Maybe a
Prelude.Just (Key
"DirectoryId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
directoryId),
forall a. a -> Maybe a
Prelude.Just
(Key
"EnableWorkDocs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Bool
enableWorkDocs)
]
)
instance Data.ToPath RegisterWorkspaceDirectory where
toPath :: RegisterWorkspaceDirectory -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RegisterWorkspaceDirectory where
toQuery :: RegisterWorkspaceDirectory -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterWorkspaceDirectoryResponse = RegisterWorkspaceDirectoryResponse'
{
RegisterWorkspaceDirectoryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RegisterWorkspaceDirectoryResponse
-> RegisterWorkspaceDirectoryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterWorkspaceDirectoryResponse
-> RegisterWorkspaceDirectoryResponse -> Bool
$c/= :: RegisterWorkspaceDirectoryResponse
-> RegisterWorkspaceDirectoryResponse -> Bool
== :: RegisterWorkspaceDirectoryResponse
-> RegisterWorkspaceDirectoryResponse -> Bool
$c== :: RegisterWorkspaceDirectoryResponse
-> RegisterWorkspaceDirectoryResponse -> Bool
Prelude.Eq, ReadPrec [RegisterWorkspaceDirectoryResponse]
ReadPrec RegisterWorkspaceDirectoryResponse
Int -> ReadS RegisterWorkspaceDirectoryResponse
ReadS [RegisterWorkspaceDirectoryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterWorkspaceDirectoryResponse]
$creadListPrec :: ReadPrec [RegisterWorkspaceDirectoryResponse]
readPrec :: ReadPrec RegisterWorkspaceDirectoryResponse
$creadPrec :: ReadPrec RegisterWorkspaceDirectoryResponse
readList :: ReadS [RegisterWorkspaceDirectoryResponse]
$creadList :: ReadS [RegisterWorkspaceDirectoryResponse]
readsPrec :: Int -> ReadS RegisterWorkspaceDirectoryResponse
$creadsPrec :: Int -> ReadS RegisterWorkspaceDirectoryResponse
Prelude.Read, Int -> RegisterWorkspaceDirectoryResponse -> ShowS
[RegisterWorkspaceDirectoryResponse] -> ShowS
RegisterWorkspaceDirectoryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterWorkspaceDirectoryResponse] -> ShowS
$cshowList :: [RegisterWorkspaceDirectoryResponse] -> ShowS
show :: RegisterWorkspaceDirectoryResponse -> String
$cshow :: RegisterWorkspaceDirectoryResponse -> String
showsPrec :: Int -> RegisterWorkspaceDirectoryResponse -> ShowS
$cshowsPrec :: Int -> RegisterWorkspaceDirectoryResponse -> ShowS
Prelude.Show, forall x.
Rep RegisterWorkspaceDirectoryResponse x
-> RegisterWorkspaceDirectoryResponse
forall x.
RegisterWorkspaceDirectoryResponse
-> Rep RegisterWorkspaceDirectoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterWorkspaceDirectoryResponse x
-> RegisterWorkspaceDirectoryResponse
$cfrom :: forall x.
RegisterWorkspaceDirectoryResponse
-> Rep RegisterWorkspaceDirectoryResponse x
Prelude.Generic)
newRegisterWorkspaceDirectoryResponse ::
Prelude.Int ->
RegisterWorkspaceDirectoryResponse
newRegisterWorkspaceDirectoryResponse :: Int -> RegisterWorkspaceDirectoryResponse
newRegisterWorkspaceDirectoryResponse Int
pHttpStatus_ =
RegisterWorkspaceDirectoryResponse'
{ $sel:httpStatus:RegisterWorkspaceDirectoryResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
registerWorkspaceDirectoryResponse_httpStatus :: Lens.Lens' RegisterWorkspaceDirectoryResponse Prelude.Int
registerWorkspaceDirectoryResponse_httpStatus :: Lens' RegisterWorkspaceDirectoryResponse Int
registerWorkspaceDirectoryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterWorkspaceDirectoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:RegisterWorkspaceDirectoryResponse' :: RegisterWorkspaceDirectoryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RegisterWorkspaceDirectoryResponse
s@RegisterWorkspaceDirectoryResponse' {} Int
a -> RegisterWorkspaceDirectoryResponse
s {$sel:httpStatus:RegisterWorkspaceDirectoryResponse' :: Int
httpStatus = Int
a} :: RegisterWorkspaceDirectoryResponse)
instance
Prelude.NFData
RegisterWorkspaceDirectoryResponse
where
rnf :: RegisterWorkspaceDirectoryResponse -> ()
rnf RegisterWorkspaceDirectoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:RegisterWorkspaceDirectoryResponse' :: RegisterWorkspaceDirectoryResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus