{-# 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.Lightsail.UpdateBucket
(
UpdateBucket (..),
newUpdateBucket,
updateBucket_accessLogConfig,
updateBucket_accessRules,
updateBucket_readonlyAccessAccounts,
updateBucket_versioning,
updateBucket_bucketName,
UpdateBucketResponse (..),
newUpdateBucketResponse,
updateBucketResponse_bucket,
updateBucketResponse_operations,
updateBucketResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateBucket = UpdateBucket'
{
UpdateBucket -> Maybe BucketAccessLogConfig
accessLogConfig :: Prelude.Maybe BucketAccessLogConfig,
UpdateBucket -> Maybe AccessRules
accessRules :: Prelude.Maybe AccessRules,
UpdateBucket -> Maybe [Text]
readonlyAccessAccounts :: Prelude.Maybe [Prelude.Text],
UpdateBucket -> Maybe Text
versioning :: Prelude.Maybe Prelude.Text,
UpdateBucket -> Text
bucketName :: Prelude.Text
}
deriving (UpdateBucket -> UpdateBucket -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateBucket -> UpdateBucket -> Bool
$c/= :: UpdateBucket -> UpdateBucket -> Bool
== :: UpdateBucket -> UpdateBucket -> Bool
$c== :: UpdateBucket -> UpdateBucket -> Bool
Prelude.Eq, ReadPrec [UpdateBucket]
ReadPrec UpdateBucket
Int -> ReadS UpdateBucket
ReadS [UpdateBucket]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateBucket]
$creadListPrec :: ReadPrec [UpdateBucket]
readPrec :: ReadPrec UpdateBucket
$creadPrec :: ReadPrec UpdateBucket
readList :: ReadS [UpdateBucket]
$creadList :: ReadS [UpdateBucket]
readsPrec :: Int -> ReadS UpdateBucket
$creadsPrec :: Int -> ReadS UpdateBucket
Prelude.Read, Int -> UpdateBucket -> ShowS
[UpdateBucket] -> ShowS
UpdateBucket -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateBucket] -> ShowS
$cshowList :: [UpdateBucket] -> ShowS
show :: UpdateBucket -> String
$cshow :: UpdateBucket -> String
showsPrec :: Int -> UpdateBucket -> ShowS
$cshowsPrec :: Int -> UpdateBucket -> ShowS
Prelude.Show, forall x. Rep UpdateBucket x -> UpdateBucket
forall x. UpdateBucket -> Rep UpdateBucket x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateBucket x -> UpdateBucket
$cfrom :: forall x. UpdateBucket -> Rep UpdateBucket x
Prelude.Generic)
newUpdateBucket ::
Prelude.Text ->
UpdateBucket
newUpdateBucket :: Text -> UpdateBucket
newUpdateBucket Text
pBucketName_ =
UpdateBucket'
{ $sel:accessLogConfig:UpdateBucket' :: Maybe BucketAccessLogConfig
accessLogConfig = forall a. Maybe a
Prelude.Nothing,
$sel:accessRules:UpdateBucket' :: Maybe AccessRules
accessRules = forall a. Maybe a
Prelude.Nothing,
$sel:readonlyAccessAccounts:UpdateBucket' :: Maybe [Text]
readonlyAccessAccounts = forall a. Maybe a
Prelude.Nothing,
$sel:versioning:UpdateBucket' :: Maybe Text
versioning = forall a. Maybe a
Prelude.Nothing,
$sel:bucketName:UpdateBucket' :: Text
bucketName = Text
pBucketName_
}
updateBucket_accessLogConfig :: Lens.Lens' UpdateBucket (Prelude.Maybe BucketAccessLogConfig)
updateBucket_accessLogConfig :: Lens' UpdateBucket (Maybe BucketAccessLogConfig)
updateBucket_accessLogConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucket' {Maybe BucketAccessLogConfig
accessLogConfig :: Maybe BucketAccessLogConfig
$sel:accessLogConfig:UpdateBucket' :: UpdateBucket -> Maybe BucketAccessLogConfig
accessLogConfig} -> Maybe BucketAccessLogConfig
accessLogConfig) (\s :: UpdateBucket
s@UpdateBucket' {} Maybe BucketAccessLogConfig
a -> UpdateBucket
s {$sel:accessLogConfig:UpdateBucket' :: Maybe BucketAccessLogConfig
accessLogConfig = Maybe BucketAccessLogConfig
a} :: UpdateBucket)
updateBucket_accessRules :: Lens.Lens' UpdateBucket (Prelude.Maybe AccessRules)
updateBucket_accessRules :: Lens' UpdateBucket (Maybe AccessRules)
updateBucket_accessRules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucket' {Maybe AccessRules
accessRules :: Maybe AccessRules
$sel:accessRules:UpdateBucket' :: UpdateBucket -> Maybe AccessRules
accessRules} -> Maybe AccessRules
accessRules) (\s :: UpdateBucket
s@UpdateBucket' {} Maybe AccessRules
a -> UpdateBucket
s {$sel:accessRules:UpdateBucket' :: Maybe AccessRules
accessRules = Maybe AccessRules
a} :: UpdateBucket)
updateBucket_readonlyAccessAccounts :: Lens.Lens' UpdateBucket (Prelude.Maybe [Prelude.Text])
updateBucket_readonlyAccessAccounts :: Lens' UpdateBucket (Maybe [Text])
updateBucket_readonlyAccessAccounts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucket' {Maybe [Text]
readonlyAccessAccounts :: Maybe [Text]
$sel:readonlyAccessAccounts:UpdateBucket' :: UpdateBucket -> Maybe [Text]
readonlyAccessAccounts} -> Maybe [Text]
readonlyAccessAccounts) (\s :: UpdateBucket
s@UpdateBucket' {} Maybe [Text]
a -> UpdateBucket
s {$sel:readonlyAccessAccounts:UpdateBucket' :: Maybe [Text]
readonlyAccessAccounts = Maybe [Text]
a} :: UpdateBucket) 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
updateBucket_versioning :: Lens.Lens' UpdateBucket (Prelude.Maybe Prelude.Text)
updateBucket_versioning :: Lens' UpdateBucket (Maybe Text)
updateBucket_versioning = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucket' {Maybe Text
versioning :: Maybe Text
$sel:versioning:UpdateBucket' :: UpdateBucket -> Maybe Text
versioning} -> Maybe Text
versioning) (\s :: UpdateBucket
s@UpdateBucket' {} Maybe Text
a -> UpdateBucket
s {$sel:versioning:UpdateBucket' :: Maybe Text
versioning = Maybe Text
a} :: UpdateBucket)
updateBucket_bucketName :: Lens.Lens' UpdateBucket Prelude.Text
updateBucket_bucketName :: Lens' UpdateBucket Text
updateBucket_bucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucket' {Text
bucketName :: Text
$sel:bucketName:UpdateBucket' :: UpdateBucket -> Text
bucketName} -> Text
bucketName) (\s :: UpdateBucket
s@UpdateBucket' {} Text
a -> UpdateBucket
s {$sel:bucketName:UpdateBucket' :: Text
bucketName = Text
a} :: UpdateBucket)
instance Core.AWSRequest UpdateBucket where
type AWSResponse UpdateBucket = UpdateBucketResponse
request :: (Service -> Service) -> UpdateBucket -> Request UpdateBucket
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 UpdateBucket
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateBucket)))
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 Bucket -> Maybe [Operation] -> Int -> UpdateBucketResponse
UpdateBucketResponse'
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
"bucket")
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
"operations" 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 UpdateBucket where
hashWithSalt :: Int -> UpdateBucket -> Int
hashWithSalt Int
_salt UpdateBucket' {Maybe [Text]
Maybe Text
Maybe AccessRules
Maybe BucketAccessLogConfig
Text
bucketName :: Text
versioning :: Maybe Text
readonlyAccessAccounts :: Maybe [Text]
accessRules :: Maybe AccessRules
accessLogConfig :: Maybe BucketAccessLogConfig
$sel:bucketName:UpdateBucket' :: UpdateBucket -> Text
$sel:versioning:UpdateBucket' :: UpdateBucket -> Maybe Text
$sel:readonlyAccessAccounts:UpdateBucket' :: UpdateBucket -> Maybe [Text]
$sel:accessRules:UpdateBucket' :: UpdateBucket -> Maybe AccessRules
$sel:accessLogConfig:UpdateBucket' :: UpdateBucket -> Maybe BucketAccessLogConfig
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BucketAccessLogConfig
accessLogConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AccessRules
accessRules
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
readonlyAccessAccounts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
versioning
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
bucketName
instance Prelude.NFData UpdateBucket where
rnf :: UpdateBucket -> ()
rnf UpdateBucket' {Maybe [Text]
Maybe Text
Maybe AccessRules
Maybe BucketAccessLogConfig
Text
bucketName :: Text
versioning :: Maybe Text
readonlyAccessAccounts :: Maybe [Text]
accessRules :: Maybe AccessRules
accessLogConfig :: Maybe BucketAccessLogConfig
$sel:bucketName:UpdateBucket' :: UpdateBucket -> Text
$sel:versioning:UpdateBucket' :: UpdateBucket -> Maybe Text
$sel:readonlyAccessAccounts:UpdateBucket' :: UpdateBucket -> Maybe [Text]
$sel:accessRules:UpdateBucket' :: UpdateBucket -> Maybe AccessRules
$sel:accessLogConfig:UpdateBucket' :: UpdateBucket -> Maybe BucketAccessLogConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketAccessLogConfig
accessLogConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AccessRules
accessRules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
readonlyAccessAccounts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
versioning
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
bucketName
instance Data.ToHeaders UpdateBucket where
toHeaders :: UpdateBucket -> 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
"Lightsail_20161128.UpdateBucket" ::
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 UpdateBucket where
toJSON :: UpdateBucket -> Value
toJSON UpdateBucket' {Maybe [Text]
Maybe Text
Maybe AccessRules
Maybe BucketAccessLogConfig
Text
bucketName :: Text
versioning :: Maybe Text
readonlyAccessAccounts :: Maybe [Text]
accessRules :: Maybe AccessRules
accessLogConfig :: Maybe BucketAccessLogConfig
$sel:bucketName:UpdateBucket' :: UpdateBucket -> Text
$sel:versioning:UpdateBucket' :: UpdateBucket -> Maybe Text
$sel:readonlyAccessAccounts:UpdateBucket' :: UpdateBucket -> Maybe [Text]
$sel:accessRules:UpdateBucket' :: UpdateBucket -> Maybe AccessRules
$sel:accessLogConfig:UpdateBucket' :: UpdateBucket -> Maybe BucketAccessLogConfig
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"accessLogConfig" 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 BucketAccessLogConfig
accessLogConfig,
(Key
"accessRules" 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 AccessRules
accessRules,
(Key
"readonlyAccessAccounts" 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]
readonlyAccessAccounts,
(Key
"versioning" 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
versioning,
forall a. a -> Maybe a
Prelude.Just (Key
"bucketName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
bucketName)
]
)
instance Data.ToPath UpdateBucket where
toPath :: UpdateBucket -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateBucket where
toQuery :: UpdateBucket -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateBucketResponse = UpdateBucketResponse'
{
UpdateBucketResponse -> Maybe Bucket
bucket :: Prelude.Maybe Bucket,
UpdateBucketResponse -> Maybe [Operation]
operations :: Prelude.Maybe [Operation],
UpdateBucketResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateBucketResponse -> UpdateBucketResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateBucketResponse -> UpdateBucketResponse -> Bool
$c/= :: UpdateBucketResponse -> UpdateBucketResponse -> Bool
== :: UpdateBucketResponse -> UpdateBucketResponse -> Bool
$c== :: UpdateBucketResponse -> UpdateBucketResponse -> Bool
Prelude.Eq, ReadPrec [UpdateBucketResponse]
ReadPrec UpdateBucketResponse
Int -> ReadS UpdateBucketResponse
ReadS [UpdateBucketResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateBucketResponse]
$creadListPrec :: ReadPrec [UpdateBucketResponse]
readPrec :: ReadPrec UpdateBucketResponse
$creadPrec :: ReadPrec UpdateBucketResponse
readList :: ReadS [UpdateBucketResponse]
$creadList :: ReadS [UpdateBucketResponse]
readsPrec :: Int -> ReadS UpdateBucketResponse
$creadsPrec :: Int -> ReadS UpdateBucketResponse
Prelude.Read, Int -> UpdateBucketResponse -> ShowS
[UpdateBucketResponse] -> ShowS
UpdateBucketResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateBucketResponse] -> ShowS
$cshowList :: [UpdateBucketResponse] -> ShowS
show :: UpdateBucketResponse -> String
$cshow :: UpdateBucketResponse -> String
showsPrec :: Int -> UpdateBucketResponse -> ShowS
$cshowsPrec :: Int -> UpdateBucketResponse -> ShowS
Prelude.Show, forall x. Rep UpdateBucketResponse x -> UpdateBucketResponse
forall x. UpdateBucketResponse -> Rep UpdateBucketResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateBucketResponse x -> UpdateBucketResponse
$cfrom :: forall x. UpdateBucketResponse -> Rep UpdateBucketResponse x
Prelude.Generic)
newUpdateBucketResponse ::
Prelude.Int ->
UpdateBucketResponse
newUpdateBucketResponse :: Int -> UpdateBucketResponse
newUpdateBucketResponse Int
pHttpStatus_ =
UpdateBucketResponse'
{ $sel:bucket:UpdateBucketResponse' :: Maybe Bucket
bucket = forall a. Maybe a
Prelude.Nothing,
$sel:operations:UpdateBucketResponse' :: Maybe [Operation]
operations = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateBucketResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateBucketResponse_bucket :: Lens.Lens' UpdateBucketResponse (Prelude.Maybe Bucket)
updateBucketResponse_bucket :: Lens' UpdateBucketResponse (Maybe Bucket)
updateBucketResponse_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucketResponse' {Maybe Bucket
bucket :: Maybe Bucket
$sel:bucket:UpdateBucketResponse' :: UpdateBucketResponse -> Maybe Bucket
bucket} -> Maybe Bucket
bucket) (\s :: UpdateBucketResponse
s@UpdateBucketResponse' {} Maybe Bucket
a -> UpdateBucketResponse
s {$sel:bucket:UpdateBucketResponse' :: Maybe Bucket
bucket = Maybe Bucket
a} :: UpdateBucketResponse)
updateBucketResponse_operations :: Lens.Lens' UpdateBucketResponse (Prelude.Maybe [Operation])
updateBucketResponse_operations :: Lens' UpdateBucketResponse (Maybe [Operation])
updateBucketResponse_operations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucketResponse' {Maybe [Operation]
operations :: Maybe [Operation]
$sel:operations:UpdateBucketResponse' :: UpdateBucketResponse -> Maybe [Operation]
operations} -> Maybe [Operation]
operations) (\s :: UpdateBucketResponse
s@UpdateBucketResponse' {} Maybe [Operation]
a -> UpdateBucketResponse
s {$sel:operations:UpdateBucketResponse' :: Maybe [Operation]
operations = Maybe [Operation]
a} :: UpdateBucketResponse) 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
updateBucketResponse_httpStatus :: Lens.Lens' UpdateBucketResponse Prelude.Int
updateBucketResponse_httpStatus :: Lens' UpdateBucketResponse Int
updateBucketResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBucketResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateBucketResponse' :: UpdateBucketResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateBucketResponse
s@UpdateBucketResponse' {} Int
a -> UpdateBucketResponse
s {$sel:httpStatus:UpdateBucketResponse' :: Int
httpStatus = Int
a} :: UpdateBucketResponse)
instance Prelude.NFData UpdateBucketResponse where
rnf :: UpdateBucketResponse -> ()
rnf UpdateBucketResponse' {Int
Maybe [Operation]
Maybe Bucket
httpStatus :: Int
operations :: Maybe [Operation]
bucket :: Maybe Bucket
$sel:httpStatus:UpdateBucketResponse' :: UpdateBucketResponse -> Int
$sel:operations:UpdateBucketResponse' :: UpdateBucketResponse -> Maybe [Operation]
$sel:bucket:UpdateBucketResponse' :: UpdateBucketResponse -> Maybe Bucket
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bucket
bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Operation]
operations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus