{-# 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.Organizations.ListOrganizationalUnitsForParent
(
ListOrganizationalUnitsForParent (..),
newListOrganizationalUnitsForParent,
listOrganizationalUnitsForParent_maxResults,
listOrganizationalUnitsForParent_nextToken,
listOrganizationalUnitsForParent_parentId,
ListOrganizationalUnitsForParentResponse (..),
newListOrganizationalUnitsForParentResponse,
listOrganizationalUnitsForParentResponse_nextToken,
listOrganizationalUnitsForParentResponse_organizationalUnits,
listOrganizationalUnitsForParentResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Organizations.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListOrganizationalUnitsForParent = ListOrganizationalUnitsForParent'
{
ListOrganizationalUnitsForParent -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListOrganizationalUnitsForParent -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListOrganizationalUnitsForParent -> Text
parentId :: Prelude.Text
}
deriving (ListOrganizationalUnitsForParent
-> ListOrganizationalUnitsForParent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListOrganizationalUnitsForParent
-> ListOrganizationalUnitsForParent -> Bool
$c/= :: ListOrganizationalUnitsForParent
-> ListOrganizationalUnitsForParent -> Bool
== :: ListOrganizationalUnitsForParent
-> ListOrganizationalUnitsForParent -> Bool
$c== :: ListOrganizationalUnitsForParent
-> ListOrganizationalUnitsForParent -> Bool
Prelude.Eq, ReadPrec [ListOrganizationalUnitsForParent]
ReadPrec ListOrganizationalUnitsForParent
Int -> ReadS ListOrganizationalUnitsForParent
ReadS [ListOrganizationalUnitsForParent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListOrganizationalUnitsForParent]
$creadListPrec :: ReadPrec [ListOrganizationalUnitsForParent]
readPrec :: ReadPrec ListOrganizationalUnitsForParent
$creadPrec :: ReadPrec ListOrganizationalUnitsForParent
readList :: ReadS [ListOrganizationalUnitsForParent]
$creadList :: ReadS [ListOrganizationalUnitsForParent]
readsPrec :: Int -> ReadS ListOrganizationalUnitsForParent
$creadsPrec :: Int -> ReadS ListOrganizationalUnitsForParent
Prelude.Read, Int -> ListOrganizationalUnitsForParent -> ShowS
[ListOrganizationalUnitsForParent] -> ShowS
ListOrganizationalUnitsForParent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListOrganizationalUnitsForParent] -> ShowS
$cshowList :: [ListOrganizationalUnitsForParent] -> ShowS
show :: ListOrganizationalUnitsForParent -> String
$cshow :: ListOrganizationalUnitsForParent -> String
showsPrec :: Int -> ListOrganizationalUnitsForParent -> ShowS
$cshowsPrec :: Int -> ListOrganizationalUnitsForParent -> ShowS
Prelude.Show, forall x.
Rep ListOrganizationalUnitsForParent x
-> ListOrganizationalUnitsForParent
forall x.
ListOrganizationalUnitsForParent
-> Rep ListOrganizationalUnitsForParent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListOrganizationalUnitsForParent x
-> ListOrganizationalUnitsForParent
$cfrom :: forall x.
ListOrganizationalUnitsForParent
-> Rep ListOrganizationalUnitsForParent x
Prelude.Generic)
newListOrganizationalUnitsForParent ::
Prelude.Text ->
ListOrganizationalUnitsForParent
newListOrganizationalUnitsForParent :: Text -> ListOrganizationalUnitsForParent
newListOrganizationalUnitsForParent Text
pParentId_ =
ListOrganizationalUnitsForParent'
{ $sel:maxResults:ListOrganizationalUnitsForParent' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListOrganizationalUnitsForParent' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:parentId:ListOrganizationalUnitsForParent' :: Text
parentId = Text
pParentId_
}
listOrganizationalUnitsForParent_maxResults :: Lens.Lens' ListOrganizationalUnitsForParent (Prelude.Maybe Prelude.Natural)
listOrganizationalUnitsForParent_maxResults :: Lens' ListOrganizationalUnitsForParent (Maybe Natural)
listOrganizationalUnitsForParent_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParent' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListOrganizationalUnitsForParent
s@ListOrganizationalUnitsForParent' {} Maybe Natural
a -> ListOrganizationalUnitsForParent
s {$sel:maxResults:ListOrganizationalUnitsForParent' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListOrganizationalUnitsForParent)
listOrganizationalUnitsForParent_nextToken :: Lens.Lens' ListOrganizationalUnitsForParent (Prelude.Maybe Prelude.Text)
listOrganizationalUnitsForParent_nextToken :: Lens' ListOrganizationalUnitsForParent (Maybe Text)
listOrganizationalUnitsForParent_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParent' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListOrganizationalUnitsForParent
s@ListOrganizationalUnitsForParent' {} Maybe Text
a -> ListOrganizationalUnitsForParent
s {$sel:nextToken:ListOrganizationalUnitsForParent' :: Maybe Text
nextToken = Maybe Text
a} :: ListOrganizationalUnitsForParent)
listOrganizationalUnitsForParent_parentId :: Lens.Lens' ListOrganizationalUnitsForParent Prelude.Text
listOrganizationalUnitsForParent_parentId :: Lens' ListOrganizationalUnitsForParent Text
listOrganizationalUnitsForParent_parentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParent' {Text
parentId :: Text
$sel:parentId:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Text
parentId} -> Text
parentId) (\s :: ListOrganizationalUnitsForParent
s@ListOrganizationalUnitsForParent' {} Text
a -> ListOrganizationalUnitsForParent
s {$sel:parentId:ListOrganizationalUnitsForParent' :: Text
parentId = Text
a} :: ListOrganizationalUnitsForParent)
instance
Core.AWSPager
ListOrganizationalUnitsForParent
where
page :: ListOrganizationalUnitsForParent
-> AWSResponse ListOrganizationalUnitsForParent
-> Maybe ListOrganizationalUnitsForParent
page ListOrganizationalUnitsForParent
rq AWSResponse ListOrganizationalUnitsForParent
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListOrganizationalUnitsForParent
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListOrganizationalUnitsForParentResponse (Maybe Text)
listOrganizationalUnitsForParentResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListOrganizationalUnitsForParent
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListOrganizationalUnitsForParentResponse
(Maybe [OrganizationalUnit])
listOrganizationalUnitsForParentResponse_organizationalUnits
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListOrganizationalUnitsForParent
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListOrganizationalUnitsForParent (Maybe Text)
listOrganizationalUnitsForParent_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListOrganizationalUnitsForParent
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListOrganizationalUnitsForParentResponse (Maybe Text)
listOrganizationalUnitsForParentResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance
Core.AWSRequest
ListOrganizationalUnitsForParent
where
type
AWSResponse ListOrganizationalUnitsForParent =
ListOrganizationalUnitsForParentResponse
request :: (Service -> Service)
-> ListOrganizationalUnitsForParent
-> Request ListOrganizationalUnitsForParent
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 ListOrganizationalUnitsForParent
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ListOrganizationalUnitsForParent)))
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 [OrganizationalUnit]
-> Int
-> ListOrganizationalUnitsForParentResponse
ListOrganizationalUnitsForParentResponse'
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
"NextToken")
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
"OrganizationalUnits"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
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
ListOrganizationalUnitsForParent
where
hashWithSalt :: Int -> ListOrganizationalUnitsForParent -> Int
hashWithSalt
Int
_salt
ListOrganizationalUnitsForParent' {Maybe Natural
Maybe Text
Text
parentId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:parentId:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Text
$sel:nextToken:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Text
$sel:maxResults:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
parentId
instance
Prelude.NFData
ListOrganizationalUnitsForParent
where
rnf :: ListOrganizationalUnitsForParent -> ()
rnf ListOrganizationalUnitsForParent' {Maybe Natural
Maybe Text
Text
parentId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:parentId:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Text
$sel:nextToken:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Text
$sel:maxResults:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
parentId
instance
Data.ToHeaders
ListOrganizationalUnitsForParent
where
toHeaders :: ListOrganizationalUnitsForParent -> 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
"AWSOrganizationsV20161128.ListOrganizationalUnitsForParent" ::
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 ListOrganizationalUnitsForParent where
toJSON :: ListOrganizationalUnitsForParent -> Value
toJSON ListOrganizationalUnitsForParent' {Maybe Natural
Maybe Text
Text
parentId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:parentId:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Text
$sel:nextToken:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Text
$sel:maxResults:ListOrganizationalUnitsForParent' :: ListOrganizationalUnitsForParent -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MaxResults" 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 Natural
maxResults,
(Key
"NextToken" 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
nextToken,
forall a. a -> Maybe a
Prelude.Just (Key
"ParentId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
parentId)
]
)
instance Data.ToPath ListOrganizationalUnitsForParent where
toPath :: ListOrganizationalUnitsForParent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ListOrganizationalUnitsForParent
where
toQuery :: ListOrganizationalUnitsForParent -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListOrganizationalUnitsForParentResponse = ListOrganizationalUnitsForParentResponse'
{
ListOrganizationalUnitsForParentResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListOrganizationalUnitsForParentResponse
-> Maybe [OrganizationalUnit]
organizationalUnits :: Prelude.Maybe [OrganizationalUnit],
ListOrganizationalUnitsForParentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListOrganizationalUnitsForParentResponse
-> ListOrganizationalUnitsForParentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListOrganizationalUnitsForParentResponse
-> ListOrganizationalUnitsForParentResponse -> Bool
$c/= :: ListOrganizationalUnitsForParentResponse
-> ListOrganizationalUnitsForParentResponse -> Bool
== :: ListOrganizationalUnitsForParentResponse
-> ListOrganizationalUnitsForParentResponse -> Bool
$c== :: ListOrganizationalUnitsForParentResponse
-> ListOrganizationalUnitsForParentResponse -> Bool
Prelude.Eq, ReadPrec [ListOrganizationalUnitsForParentResponse]
ReadPrec ListOrganizationalUnitsForParentResponse
Int -> ReadS ListOrganizationalUnitsForParentResponse
ReadS [ListOrganizationalUnitsForParentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListOrganizationalUnitsForParentResponse]
$creadListPrec :: ReadPrec [ListOrganizationalUnitsForParentResponse]
readPrec :: ReadPrec ListOrganizationalUnitsForParentResponse
$creadPrec :: ReadPrec ListOrganizationalUnitsForParentResponse
readList :: ReadS [ListOrganizationalUnitsForParentResponse]
$creadList :: ReadS [ListOrganizationalUnitsForParentResponse]
readsPrec :: Int -> ReadS ListOrganizationalUnitsForParentResponse
$creadsPrec :: Int -> ReadS ListOrganizationalUnitsForParentResponse
Prelude.Read, Int -> ListOrganizationalUnitsForParentResponse -> ShowS
[ListOrganizationalUnitsForParentResponse] -> ShowS
ListOrganizationalUnitsForParentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListOrganizationalUnitsForParentResponse] -> ShowS
$cshowList :: [ListOrganizationalUnitsForParentResponse] -> ShowS
show :: ListOrganizationalUnitsForParentResponse -> String
$cshow :: ListOrganizationalUnitsForParentResponse -> String
showsPrec :: Int -> ListOrganizationalUnitsForParentResponse -> ShowS
$cshowsPrec :: Int -> ListOrganizationalUnitsForParentResponse -> ShowS
Prelude.Show, forall x.
Rep ListOrganizationalUnitsForParentResponse x
-> ListOrganizationalUnitsForParentResponse
forall x.
ListOrganizationalUnitsForParentResponse
-> Rep ListOrganizationalUnitsForParentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListOrganizationalUnitsForParentResponse x
-> ListOrganizationalUnitsForParentResponse
$cfrom :: forall x.
ListOrganizationalUnitsForParentResponse
-> Rep ListOrganizationalUnitsForParentResponse x
Prelude.Generic)
newListOrganizationalUnitsForParentResponse ::
Prelude.Int ->
ListOrganizationalUnitsForParentResponse
newListOrganizationalUnitsForParentResponse :: Int -> ListOrganizationalUnitsForParentResponse
newListOrganizationalUnitsForParentResponse
Int
pHttpStatus_ =
ListOrganizationalUnitsForParentResponse'
{ $sel:nextToken:ListOrganizationalUnitsForParentResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:organizationalUnits:ListOrganizationalUnitsForParentResponse' :: Maybe [OrganizationalUnit]
organizationalUnits =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListOrganizationalUnitsForParentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listOrganizationalUnitsForParentResponse_nextToken :: Lens.Lens' ListOrganizationalUnitsForParentResponse (Prelude.Maybe Prelude.Text)
listOrganizationalUnitsForParentResponse_nextToken :: Lens' ListOrganizationalUnitsForParentResponse (Maybe Text)
listOrganizationalUnitsForParentResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParentResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListOrganizationalUnitsForParentResponse
s@ListOrganizationalUnitsForParentResponse' {} Maybe Text
a -> ListOrganizationalUnitsForParentResponse
s {$sel:nextToken:ListOrganizationalUnitsForParentResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListOrganizationalUnitsForParentResponse)
listOrganizationalUnitsForParentResponse_organizationalUnits :: Lens.Lens' ListOrganizationalUnitsForParentResponse (Prelude.Maybe [OrganizationalUnit])
listOrganizationalUnitsForParentResponse_organizationalUnits :: Lens'
ListOrganizationalUnitsForParentResponse
(Maybe [OrganizationalUnit])
listOrganizationalUnitsForParentResponse_organizationalUnits = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParentResponse' {Maybe [OrganizationalUnit]
organizationalUnits :: Maybe [OrganizationalUnit]
$sel:organizationalUnits:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse
-> Maybe [OrganizationalUnit]
organizationalUnits} -> Maybe [OrganizationalUnit]
organizationalUnits) (\s :: ListOrganizationalUnitsForParentResponse
s@ListOrganizationalUnitsForParentResponse' {} Maybe [OrganizationalUnit]
a -> ListOrganizationalUnitsForParentResponse
s {$sel:organizationalUnits:ListOrganizationalUnitsForParentResponse' :: Maybe [OrganizationalUnit]
organizationalUnits = Maybe [OrganizationalUnit]
a} :: ListOrganizationalUnitsForParentResponse) 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
listOrganizationalUnitsForParentResponse_httpStatus :: Lens.Lens' ListOrganizationalUnitsForParentResponse Prelude.Int
listOrganizationalUnitsForParentResponse_httpStatus :: Lens' ListOrganizationalUnitsForParentResponse Int
listOrganizationalUnitsForParentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListOrganizationalUnitsForParentResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListOrganizationalUnitsForParentResponse
s@ListOrganizationalUnitsForParentResponse' {} Int
a -> ListOrganizationalUnitsForParentResponse
s {$sel:httpStatus:ListOrganizationalUnitsForParentResponse' :: Int
httpStatus = Int
a} :: ListOrganizationalUnitsForParentResponse)
instance
Prelude.NFData
ListOrganizationalUnitsForParentResponse
where
rnf :: ListOrganizationalUnitsForParentResponse -> ()
rnf ListOrganizationalUnitsForParentResponse' {Int
Maybe [OrganizationalUnit]
Maybe Text
httpStatus :: Int
organizationalUnits :: Maybe [OrganizationalUnit]
nextToken :: Maybe Text
$sel:httpStatus:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse -> Int
$sel:organizationalUnits:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse
-> Maybe [OrganizationalUnit]
$sel:nextToken:ListOrganizationalUnitsForParentResponse' :: ListOrganizationalUnitsForParentResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [OrganizationalUnit]
organizationalUnits
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus