{-# 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.QuickSight.DescribeDataSourcePermissions
(
DescribeDataSourcePermissions (..),
newDescribeDataSourcePermissions,
describeDataSourcePermissions_awsAccountId,
describeDataSourcePermissions_dataSourceId,
DescribeDataSourcePermissionsResponse (..),
newDescribeDataSourcePermissionsResponse,
describeDataSourcePermissionsResponse_dataSourceArn,
describeDataSourcePermissionsResponse_dataSourceId,
describeDataSourcePermissionsResponse_permissions,
describeDataSourcePermissionsResponse_requestId,
describeDataSourcePermissionsResponse_status,
)
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 Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeDataSourcePermissions = DescribeDataSourcePermissions'
{
DescribeDataSourcePermissions -> Text
awsAccountId :: Prelude.Text,
DescribeDataSourcePermissions -> Text
dataSourceId :: Prelude.Text
}
deriving (DescribeDataSourcePermissions
-> DescribeDataSourcePermissions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDataSourcePermissions
-> DescribeDataSourcePermissions -> Bool
$c/= :: DescribeDataSourcePermissions
-> DescribeDataSourcePermissions -> Bool
== :: DescribeDataSourcePermissions
-> DescribeDataSourcePermissions -> Bool
$c== :: DescribeDataSourcePermissions
-> DescribeDataSourcePermissions -> Bool
Prelude.Eq, ReadPrec [DescribeDataSourcePermissions]
ReadPrec DescribeDataSourcePermissions
Int -> ReadS DescribeDataSourcePermissions
ReadS [DescribeDataSourcePermissions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDataSourcePermissions]
$creadListPrec :: ReadPrec [DescribeDataSourcePermissions]
readPrec :: ReadPrec DescribeDataSourcePermissions
$creadPrec :: ReadPrec DescribeDataSourcePermissions
readList :: ReadS [DescribeDataSourcePermissions]
$creadList :: ReadS [DescribeDataSourcePermissions]
readsPrec :: Int -> ReadS DescribeDataSourcePermissions
$creadsPrec :: Int -> ReadS DescribeDataSourcePermissions
Prelude.Read, Int -> DescribeDataSourcePermissions -> ShowS
[DescribeDataSourcePermissions] -> ShowS
DescribeDataSourcePermissions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDataSourcePermissions] -> ShowS
$cshowList :: [DescribeDataSourcePermissions] -> ShowS
show :: DescribeDataSourcePermissions -> String
$cshow :: DescribeDataSourcePermissions -> String
showsPrec :: Int -> DescribeDataSourcePermissions -> ShowS
$cshowsPrec :: Int -> DescribeDataSourcePermissions -> ShowS
Prelude.Show, forall x.
Rep DescribeDataSourcePermissions x
-> DescribeDataSourcePermissions
forall x.
DescribeDataSourcePermissions
-> Rep DescribeDataSourcePermissions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDataSourcePermissions x
-> DescribeDataSourcePermissions
$cfrom :: forall x.
DescribeDataSourcePermissions
-> Rep DescribeDataSourcePermissions x
Prelude.Generic)
newDescribeDataSourcePermissions ::
Prelude.Text ->
Prelude.Text ->
DescribeDataSourcePermissions
newDescribeDataSourcePermissions :: Text -> Text -> DescribeDataSourcePermissions
newDescribeDataSourcePermissions
Text
pAwsAccountId_
Text
pDataSourceId_ =
DescribeDataSourcePermissions'
{ $sel:awsAccountId:DescribeDataSourcePermissions' :: Text
awsAccountId =
Text
pAwsAccountId_,
$sel:dataSourceId:DescribeDataSourcePermissions' :: Text
dataSourceId = Text
pDataSourceId_
}
describeDataSourcePermissions_awsAccountId :: Lens.Lens' DescribeDataSourcePermissions Prelude.Text
describeDataSourcePermissions_awsAccountId :: Lens' DescribeDataSourcePermissions Text
describeDataSourcePermissions_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissions' {Text
awsAccountId :: Text
$sel:awsAccountId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
awsAccountId} -> Text
awsAccountId) (\s :: DescribeDataSourcePermissions
s@DescribeDataSourcePermissions' {} Text
a -> DescribeDataSourcePermissions
s {$sel:awsAccountId:DescribeDataSourcePermissions' :: Text
awsAccountId = Text
a} :: DescribeDataSourcePermissions)
describeDataSourcePermissions_dataSourceId :: Lens.Lens' DescribeDataSourcePermissions Prelude.Text
describeDataSourcePermissions_dataSourceId :: Lens' DescribeDataSourcePermissions Text
describeDataSourcePermissions_dataSourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissions' {Text
dataSourceId :: Text
$sel:dataSourceId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
dataSourceId} -> Text
dataSourceId) (\s :: DescribeDataSourcePermissions
s@DescribeDataSourcePermissions' {} Text
a -> DescribeDataSourcePermissions
s {$sel:dataSourceId:DescribeDataSourcePermissions' :: Text
dataSourceId = Text
a} :: DescribeDataSourcePermissions)
instance
Core.AWSRequest
DescribeDataSourcePermissions
where
type
AWSResponse DescribeDataSourcePermissions =
DescribeDataSourcePermissionsResponse
request :: (Service -> Service)
-> DescribeDataSourcePermissions
-> Request DescribeDataSourcePermissions
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDataSourcePermissions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDataSourcePermissions)))
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 Text
-> Maybe (NonEmpty ResourcePermission)
-> Maybe Text
-> Int
-> DescribeDataSourcePermissionsResponse
DescribeDataSourcePermissionsResponse'
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
"DataSourceArn")
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
"DataSourceId")
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
"Permissions")
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
"RequestId")
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
DescribeDataSourcePermissions
where
hashWithSalt :: Int -> DescribeDataSourcePermissions -> Int
hashWithSalt Int
_salt DescribeDataSourcePermissions' {Text
dataSourceId :: Text
awsAccountId :: Text
$sel:dataSourceId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
$sel:awsAccountId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataSourceId
instance Prelude.NFData DescribeDataSourcePermissions where
rnf :: DescribeDataSourcePermissions -> ()
rnf DescribeDataSourcePermissions' {Text
dataSourceId :: Text
awsAccountId :: Text
$sel:dataSourceId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
$sel:awsAccountId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dataSourceId
instance Data.ToHeaders DescribeDataSourcePermissions where
toHeaders :: DescribeDataSourcePermissions -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeDataSourcePermissions where
toPath :: DescribeDataSourcePermissions -> ByteString
toPath DescribeDataSourcePermissions' {Text
dataSourceId :: Text
awsAccountId :: Text
$sel:dataSourceId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
$sel:awsAccountId:DescribeDataSourcePermissions' :: DescribeDataSourcePermissions -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/data-sources/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
dataSourceId,
ByteString
"/permissions"
]
instance Data.ToQuery DescribeDataSourcePermissions where
toQuery :: DescribeDataSourcePermissions -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDataSourcePermissionsResponse = DescribeDataSourcePermissionsResponse'
{
DescribeDataSourcePermissionsResponse -> Maybe Text
dataSourceArn :: Prelude.Maybe Prelude.Text,
DescribeDataSourcePermissionsResponse -> Maybe Text
dataSourceId :: Prelude.Maybe Prelude.Text,
DescribeDataSourcePermissionsResponse
-> Maybe (NonEmpty ResourcePermission)
permissions :: Prelude.Maybe (Prelude.NonEmpty ResourcePermission),
DescribeDataSourcePermissionsResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
DescribeDataSourcePermissionsResponse -> Int
status :: Prelude.Int
}
deriving (DescribeDataSourcePermissionsResponse
-> DescribeDataSourcePermissionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDataSourcePermissionsResponse
-> DescribeDataSourcePermissionsResponse -> Bool
$c/= :: DescribeDataSourcePermissionsResponse
-> DescribeDataSourcePermissionsResponse -> Bool
== :: DescribeDataSourcePermissionsResponse
-> DescribeDataSourcePermissionsResponse -> Bool
$c== :: DescribeDataSourcePermissionsResponse
-> DescribeDataSourcePermissionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDataSourcePermissionsResponse]
ReadPrec DescribeDataSourcePermissionsResponse
Int -> ReadS DescribeDataSourcePermissionsResponse
ReadS [DescribeDataSourcePermissionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDataSourcePermissionsResponse]
$creadListPrec :: ReadPrec [DescribeDataSourcePermissionsResponse]
readPrec :: ReadPrec DescribeDataSourcePermissionsResponse
$creadPrec :: ReadPrec DescribeDataSourcePermissionsResponse
readList :: ReadS [DescribeDataSourcePermissionsResponse]
$creadList :: ReadS [DescribeDataSourcePermissionsResponse]
readsPrec :: Int -> ReadS DescribeDataSourcePermissionsResponse
$creadsPrec :: Int -> ReadS DescribeDataSourcePermissionsResponse
Prelude.Read, Int -> DescribeDataSourcePermissionsResponse -> ShowS
[DescribeDataSourcePermissionsResponse] -> ShowS
DescribeDataSourcePermissionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDataSourcePermissionsResponse] -> ShowS
$cshowList :: [DescribeDataSourcePermissionsResponse] -> ShowS
show :: DescribeDataSourcePermissionsResponse -> String
$cshow :: DescribeDataSourcePermissionsResponse -> String
showsPrec :: Int -> DescribeDataSourcePermissionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeDataSourcePermissionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDataSourcePermissionsResponse x
-> DescribeDataSourcePermissionsResponse
forall x.
DescribeDataSourcePermissionsResponse
-> Rep DescribeDataSourcePermissionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDataSourcePermissionsResponse x
-> DescribeDataSourcePermissionsResponse
$cfrom :: forall x.
DescribeDataSourcePermissionsResponse
-> Rep DescribeDataSourcePermissionsResponse x
Prelude.Generic)
newDescribeDataSourcePermissionsResponse ::
Prelude.Int ->
DescribeDataSourcePermissionsResponse
newDescribeDataSourcePermissionsResponse :: Int -> DescribeDataSourcePermissionsResponse
newDescribeDataSourcePermissionsResponse Int
pStatus_ =
DescribeDataSourcePermissionsResponse'
{ $sel:dataSourceArn:DescribeDataSourcePermissionsResponse' :: Maybe Text
dataSourceArn =
forall a. Maybe a
Prelude.Nothing,
$sel:dataSourceId:DescribeDataSourcePermissionsResponse' :: Maybe Text
dataSourceId = forall a. Maybe a
Prelude.Nothing,
$sel:permissions:DescribeDataSourcePermissionsResponse' :: Maybe (NonEmpty ResourcePermission)
permissions = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:DescribeDataSourcePermissionsResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeDataSourcePermissionsResponse' :: Int
status = Int
pStatus_
}
describeDataSourcePermissionsResponse_dataSourceArn :: Lens.Lens' DescribeDataSourcePermissionsResponse (Prelude.Maybe Prelude.Text)
describeDataSourcePermissionsResponse_dataSourceArn :: Lens' DescribeDataSourcePermissionsResponse (Maybe Text)
describeDataSourcePermissionsResponse_dataSourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissionsResponse' {Maybe Text
dataSourceArn :: Maybe Text
$sel:dataSourceArn:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
dataSourceArn} -> Maybe Text
dataSourceArn) (\s :: DescribeDataSourcePermissionsResponse
s@DescribeDataSourcePermissionsResponse' {} Maybe Text
a -> DescribeDataSourcePermissionsResponse
s {$sel:dataSourceArn:DescribeDataSourcePermissionsResponse' :: Maybe Text
dataSourceArn = Maybe Text
a} :: DescribeDataSourcePermissionsResponse)
describeDataSourcePermissionsResponse_dataSourceId :: Lens.Lens' DescribeDataSourcePermissionsResponse (Prelude.Maybe Prelude.Text)
describeDataSourcePermissionsResponse_dataSourceId :: Lens' DescribeDataSourcePermissionsResponse (Maybe Text)
describeDataSourcePermissionsResponse_dataSourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissionsResponse' {Maybe Text
dataSourceId :: Maybe Text
$sel:dataSourceId:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
dataSourceId} -> Maybe Text
dataSourceId) (\s :: DescribeDataSourcePermissionsResponse
s@DescribeDataSourcePermissionsResponse' {} Maybe Text
a -> DescribeDataSourcePermissionsResponse
s {$sel:dataSourceId:DescribeDataSourcePermissionsResponse' :: Maybe Text
dataSourceId = Maybe Text
a} :: DescribeDataSourcePermissionsResponse)
describeDataSourcePermissionsResponse_permissions :: Lens.Lens' DescribeDataSourcePermissionsResponse (Prelude.Maybe (Prelude.NonEmpty ResourcePermission))
describeDataSourcePermissionsResponse_permissions :: Lens'
DescribeDataSourcePermissionsResponse
(Maybe (NonEmpty ResourcePermission))
describeDataSourcePermissionsResponse_permissions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissionsResponse' {Maybe (NonEmpty ResourcePermission)
permissions :: Maybe (NonEmpty ResourcePermission)
$sel:permissions:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse
-> Maybe (NonEmpty ResourcePermission)
permissions} -> Maybe (NonEmpty ResourcePermission)
permissions) (\s :: DescribeDataSourcePermissionsResponse
s@DescribeDataSourcePermissionsResponse' {} Maybe (NonEmpty ResourcePermission)
a -> DescribeDataSourcePermissionsResponse
s {$sel:permissions:DescribeDataSourcePermissionsResponse' :: Maybe (NonEmpty ResourcePermission)
permissions = Maybe (NonEmpty ResourcePermission)
a} :: DescribeDataSourcePermissionsResponse) 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
describeDataSourcePermissionsResponse_requestId :: Lens.Lens' DescribeDataSourcePermissionsResponse (Prelude.Maybe Prelude.Text)
describeDataSourcePermissionsResponse_requestId :: Lens' DescribeDataSourcePermissionsResponse (Maybe Text)
describeDataSourcePermissionsResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissionsResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: DescribeDataSourcePermissionsResponse
s@DescribeDataSourcePermissionsResponse' {} Maybe Text
a -> DescribeDataSourcePermissionsResponse
s {$sel:requestId:DescribeDataSourcePermissionsResponse' :: Maybe Text
requestId = Maybe Text
a} :: DescribeDataSourcePermissionsResponse)
describeDataSourcePermissionsResponse_status :: Lens.Lens' DescribeDataSourcePermissionsResponse Prelude.Int
describeDataSourcePermissionsResponse_status :: Lens' DescribeDataSourcePermissionsResponse Int
describeDataSourcePermissionsResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataSourcePermissionsResponse' {Int
status :: Int
$sel:status:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Int
status} -> Int
status) (\s :: DescribeDataSourcePermissionsResponse
s@DescribeDataSourcePermissionsResponse' {} Int
a -> DescribeDataSourcePermissionsResponse
s {$sel:status:DescribeDataSourcePermissionsResponse' :: Int
status = Int
a} :: DescribeDataSourcePermissionsResponse)
instance
Prelude.NFData
DescribeDataSourcePermissionsResponse
where
rnf :: DescribeDataSourcePermissionsResponse -> ()
rnf DescribeDataSourcePermissionsResponse' {Int
Maybe (NonEmpty ResourcePermission)
Maybe Text
status :: Int
requestId :: Maybe Text
permissions :: Maybe (NonEmpty ResourcePermission)
dataSourceId :: Maybe Text
dataSourceArn :: Maybe Text
$sel:status:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Int
$sel:requestId:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
$sel:permissions:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse
-> Maybe (NonEmpty ResourcePermission)
$sel:dataSourceId:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
$sel:dataSourceArn:DescribeDataSourcePermissionsResponse' :: DescribeDataSourcePermissionsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataSourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataSourceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ResourcePermission)
permissions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status