{-# 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.Snowball.GetSnowballUsage
(
GetSnowballUsage (..),
newGetSnowballUsage,
GetSnowballUsageResponse (..),
newGetSnowballUsageResponse,
getSnowballUsageResponse_snowballLimit,
getSnowballUsageResponse_snowballsInUse,
getSnowballUsageResponse_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.Snowball.Types
data GetSnowballUsage = GetSnowballUsage'
{
}
deriving (GetSnowballUsage -> GetSnowballUsage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSnowballUsage -> GetSnowballUsage -> Bool
$c/= :: GetSnowballUsage -> GetSnowballUsage -> Bool
== :: GetSnowballUsage -> GetSnowballUsage -> Bool
$c== :: GetSnowballUsage -> GetSnowballUsage -> Bool
Prelude.Eq, ReadPrec [GetSnowballUsage]
ReadPrec GetSnowballUsage
Int -> ReadS GetSnowballUsage
ReadS [GetSnowballUsage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSnowballUsage]
$creadListPrec :: ReadPrec [GetSnowballUsage]
readPrec :: ReadPrec GetSnowballUsage
$creadPrec :: ReadPrec GetSnowballUsage
readList :: ReadS [GetSnowballUsage]
$creadList :: ReadS [GetSnowballUsage]
readsPrec :: Int -> ReadS GetSnowballUsage
$creadsPrec :: Int -> ReadS GetSnowballUsage
Prelude.Read, Int -> GetSnowballUsage -> ShowS
[GetSnowballUsage] -> ShowS
GetSnowballUsage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSnowballUsage] -> ShowS
$cshowList :: [GetSnowballUsage] -> ShowS
show :: GetSnowballUsage -> String
$cshow :: GetSnowballUsage -> String
showsPrec :: Int -> GetSnowballUsage -> ShowS
$cshowsPrec :: Int -> GetSnowballUsage -> ShowS
Prelude.Show, forall x. Rep GetSnowballUsage x -> GetSnowballUsage
forall x. GetSnowballUsage -> Rep GetSnowballUsage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSnowballUsage x -> GetSnowballUsage
$cfrom :: forall x. GetSnowballUsage -> Rep GetSnowballUsage x
Prelude.Generic)
newGetSnowballUsage ::
GetSnowballUsage
newGetSnowballUsage :: GetSnowballUsage
newGetSnowballUsage = GetSnowballUsage
GetSnowballUsage'
instance Core.AWSRequest GetSnowballUsage where
type
AWSResponse GetSnowballUsage =
GetSnowballUsageResponse
request :: (Service -> Service)
-> GetSnowballUsage -> Request GetSnowballUsage
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 GetSnowballUsage
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetSnowballUsage)))
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 Int -> Maybe Int -> Int -> GetSnowballUsageResponse
GetSnowballUsageResponse'
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
"SnowballLimit")
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
"SnowballsInUse")
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 GetSnowballUsage where
hashWithSalt :: Int -> GetSnowballUsage -> Int
hashWithSalt Int
_salt GetSnowballUsage
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData GetSnowballUsage where
rnf :: GetSnowballUsage -> ()
rnf GetSnowballUsage
_ = ()
instance Data.ToHeaders GetSnowballUsage where
toHeaders :: GetSnowballUsage -> 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
"AWSIESnowballJobManagementService.GetSnowballUsage" ::
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 GetSnowballUsage where
toJSON :: GetSnowballUsage -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance Data.ToPath GetSnowballUsage where
toPath :: GetSnowballUsage -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetSnowballUsage where
toQuery :: GetSnowballUsage -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetSnowballUsageResponse = GetSnowballUsageResponse'
{
GetSnowballUsageResponse -> Maybe Int
snowballLimit :: Prelude.Maybe Prelude.Int,
GetSnowballUsageResponse -> Maybe Int
snowballsInUse :: Prelude.Maybe Prelude.Int,
GetSnowballUsageResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSnowballUsageResponse -> GetSnowballUsageResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSnowballUsageResponse -> GetSnowballUsageResponse -> Bool
$c/= :: GetSnowballUsageResponse -> GetSnowballUsageResponse -> Bool
== :: GetSnowballUsageResponse -> GetSnowballUsageResponse -> Bool
$c== :: GetSnowballUsageResponse -> GetSnowballUsageResponse -> Bool
Prelude.Eq, ReadPrec [GetSnowballUsageResponse]
ReadPrec GetSnowballUsageResponse
Int -> ReadS GetSnowballUsageResponse
ReadS [GetSnowballUsageResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSnowballUsageResponse]
$creadListPrec :: ReadPrec [GetSnowballUsageResponse]
readPrec :: ReadPrec GetSnowballUsageResponse
$creadPrec :: ReadPrec GetSnowballUsageResponse
readList :: ReadS [GetSnowballUsageResponse]
$creadList :: ReadS [GetSnowballUsageResponse]
readsPrec :: Int -> ReadS GetSnowballUsageResponse
$creadsPrec :: Int -> ReadS GetSnowballUsageResponse
Prelude.Read, Int -> GetSnowballUsageResponse -> ShowS
[GetSnowballUsageResponse] -> ShowS
GetSnowballUsageResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSnowballUsageResponse] -> ShowS
$cshowList :: [GetSnowballUsageResponse] -> ShowS
show :: GetSnowballUsageResponse -> String
$cshow :: GetSnowballUsageResponse -> String
showsPrec :: Int -> GetSnowballUsageResponse -> ShowS
$cshowsPrec :: Int -> GetSnowballUsageResponse -> ShowS
Prelude.Show, forall x.
Rep GetSnowballUsageResponse x -> GetSnowballUsageResponse
forall x.
GetSnowballUsageResponse -> Rep GetSnowballUsageResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSnowballUsageResponse x -> GetSnowballUsageResponse
$cfrom :: forall x.
GetSnowballUsageResponse -> Rep GetSnowballUsageResponse x
Prelude.Generic)
newGetSnowballUsageResponse ::
Prelude.Int ->
GetSnowballUsageResponse
newGetSnowballUsageResponse :: Int -> GetSnowballUsageResponse
newGetSnowballUsageResponse Int
pHttpStatus_ =
GetSnowballUsageResponse'
{ $sel:snowballLimit:GetSnowballUsageResponse' :: Maybe Int
snowballLimit =
forall a. Maybe a
Prelude.Nothing,
$sel:snowballsInUse:GetSnowballUsageResponse' :: Maybe Int
snowballsInUse = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSnowballUsageResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getSnowballUsageResponse_snowballLimit :: Lens.Lens' GetSnowballUsageResponse (Prelude.Maybe Prelude.Int)
getSnowballUsageResponse_snowballLimit :: Lens' GetSnowballUsageResponse (Maybe Int)
getSnowballUsageResponse_snowballLimit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSnowballUsageResponse' {Maybe Int
snowballLimit :: Maybe Int
$sel:snowballLimit:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Maybe Int
snowballLimit} -> Maybe Int
snowballLimit) (\s :: GetSnowballUsageResponse
s@GetSnowballUsageResponse' {} Maybe Int
a -> GetSnowballUsageResponse
s {$sel:snowballLimit:GetSnowballUsageResponse' :: Maybe Int
snowballLimit = Maybe Int
a} :: GetSnowballUsageResponse)
getSnowballUsageResponse_snowballsInUse :: Lens.Lens' GetSnowballUsageResponse (Prelude.Maybe Prelude.Int)
getSnowballUsageResponse_snowballsInUse :: Lens' GetSnowballUsageResponse (Maybe Int)
getSnowballUsageResponse_snowballsInUse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSnowballUsageResponse' {Maybe Int
snowballsInUse :: Maybe Int
$sel:snowballsInUse:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Maybe Int
snowballsInUse} -> Maybe Int
snowballsInUse) (\s :: GetSnowballUsageResponse
s@GetSnowballUsageResponse' {} Maybe Int
a -> GetSnowballUsageResponse
s {$sel:snowballsInUse:GetSnowballUsageResponse' :: Maybe Int
snowballsInUse = Maybe Int
a} :: GetSnowballUsageResponse)
getSnowballUsageResponse_httpStatus :: Lens.Lens' GetSnowballUsageResponse Prelude.Int
getSnowballUsageResponse_httpStatus :: Lens' GetSnowballUsageResponse Int
getSnowballUsageResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSnowballUsageResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSnowballUsageResponse
s@GetSnowballUsageResponse' {} Int
a -> GetSnowballUsageResponse
s {$sel:httpStatus:GetSnowballUsageResponse' :: Int
httpStatus = Int
a} :: GetSnowballUsageResponse)
instance Prelude.NFData GetSnowballUsageResponse where
rnf :: GetSnowballUsageResponse -> ()
rnf GetSnowballUsageResponse' {Int
Maybe Int
httpStatus :: Int
snowballsInUse :: Maybe Int
snowballLimit :: Maybe Int
$sel:httpStatus:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Int
$sel:snowballsInUse:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Maybe Int
$sel:snowballLimit:GetSnowballUsageResponse' :: GetSnowballUsageResponse -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
snowballLimit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
snowballsInUse
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus