{-# 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.IoTAnalytics.DescribeChannel
(
DescribeChannel (..),
newDescribeChannel,
describeChannel_includeStatistics,
describeChannel_channelName,
DescribeChannelResponse (..),
newDescribeChannelResponse,
describeChannelResponse_channel,
describeChannelResponse_statistics,
describeChannelResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTAnalytics.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeChannel = DescribeChannel'
{
DescribeChannel -> Maybe Bool
includeStatistics :: Prelude.Maybe Prelude.Bool,
DescribeChannel -> Text
channelName :: Prelude.Text
}
deriving (DescribeChannel -> DescribeChannel -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeChannel -> DescribeChannel -> Bool
$c/= :: DescribeChannel -> DescribeChannel -> Bool
== :: DescribeChannel -> DescribeChannel -> Bool
$c== :: DescribeChannel -> DescribeChannel -> Bool
Prelude.Eq, ReadPrec [DescribeChannel]
ReadPrec DescribeChannel
Int -> ReadS DescribeChannel
ReadS [DescribeChannel]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeChannel]
$creadListPrec :: ReadPrec [DescribeChannel]
readPrec :: ReadPrec DescribeChannel
$creadPrec :: ReadPrec DescribeChannel
readList :: ReadS [DescribeChannel]
$creadList :: ReadS [DescribeChannel]
readsPrec :: Int -> ReadS DescribeChannel
$creadsPrec :: Int -> ReadS DescribeChannel
Prelude.Read, Int -> DescribeChannel -> ShowS
[DescribeChannel] -> ShowS
DescribeChannel -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeChannel] -> ShowS
$cshowList :: [DescribeChannel] -> ShowS
show :: DescribeChannel -> String
$cshow :: DescribeChannel -> String
showsPrec :: Int -> DescribeChannel -> ShowS
$cshowsPrec :: Int -> DescribeChannel -> ShowS
Prelude.Show, forall x. Rep DescribeChannel x -> DescribeChannel
forall x. DescribeChannel -> Rep DescribeChannel x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeChannel x -> DescribeChannel
$cfrom :: forall x. DescribeChannel -> Rep DescribeChannel x
Prelude.Generic)
newDescribeChannel ::
Prelude.Text ->
DescribeChannel
newDescribeChannel :: Text -> DescribeChannel
newDescribeChannel Text
pChannelName_ =
DescribeChannel'
{ $sel:includeStatistics:DescribeChannel' :: Maybe Bool
includeStatistics =
forall a. Maybe a
Prelude.Nothing,
$sel:channelName:DescribeChannel' :: Text
channelName = Text
pChannelName_
}
describeChannel_includeStatistics :: Lens.Lens' DescribeChannel (Prelude.Maybe Prelude.Bool)
describeChannel_includeStatistics :: Lens' DescribeChannel (Maybe Bool)
describeChannel_includeStatistics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannel' {Maybe Bool
includeStatistics :: Maybe Bool
$sel:includeStatistics:DescribeChannel' :: DescribeChannel -> Maybe Bool
includeStatistics} -> Maybe Bool
includeStatistics) (\s :: DescribeChannel
s@DescribeChannel' {} Maybe Bool
a -> DescribeChannel
s {$sel:includeStatistics:DescribeChannel' :: Maybe Bool
includeStatistics = Maybe Bool
a} :: DescribeChannel)
describeChannel_channelName :: Lens.Lens' DescribeChannel Prelude.Text
describeChannel_channelName :: Lens' DescribeChannel Text
describeChannel_channelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannel' {Text
channelName :: Text
$sel:channelName:DescribeChannel' :: DescribeChannel -> Text
channelName} -> Text
channelName) (\s :: DescribeChannel
s@DescribeChannel' {} Text
a -> DescribeChannel
s {$sel:channelName:DescribeChannel' :: Text
channelName = Text
a} :: DescribeChannel)
instance Core.AWSRequest DescribeChannel where
type
AWSResponse DescribeChannel =
DescribeChannelResponse
request :: (Service -> Service) -> DescribeChannel -> Request DescribeChannel
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 DescribeChannel
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeChannel)))
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 Channel
-> Maybe ChannelStatistics -> Int -> DescribeChannelResponse
DescribeChannelResponse'
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
"channel")
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
"statistics")
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 DescribeChannel where
hashWithSalt :: Int -> DescribeChannel -> Int
hashWithSalt Int
_salt DescribeChannel' {Maybe Bool
Text
channelName :: Text
includeStatistics :: Maybe Bool
$sel:channelName:DescribeChannel' :: DescribeChannel -> Text
$sel:includeStatistics:DescribeChannel' :: DescribeChannel -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeStatistics
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
channelName
instance Prelude.NFData DescribeChannel where
rnf :: DescribeChannel -> ()
rnf DescribeChannel' {Maybe Bool
Text
channelName :: Text
includeStatistics :: Maybe Bool
$sel:channelName:DescribeChannel' :: DescribeChannel -> Text
$sel:includeStatistics:DescribeChannel' :: DescribeChannel -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includeStatistics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
channelName
instance Data.ToHeaders DescribeChannel where
toHeaders :: DescribeChannel -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeChannel where
toPath :: DescribeChannel -> ByteString
toPath DescribeChannel' {Maybe Bool
Text
channelName :: Text
includeStatistics :: Maybe Bool
$sel:channelName:DescribeChannel' :: DescribeChannel -> Text
$sel:includeStatistics:DescribeChannel' :: DescribeChannel -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/channels/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
channelName]
instance Data.ToQuery DescribeChannel where
toQuery :: DescribeChannel -> QueryString
toQuery DescribeChannel' {Maybe Bool
Text
channelName :: Text
includeStatistics :: Maybe Bool
$sel:channelName:DescribeChannel' :: DescribeChannel -> Text
$sel:includeStatistics:DescribeChannel' :: DescribeChannel -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"includeStatistics" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
includeStatistics]
data DescribeChannelResponse = DescribeChannelResponse'
{
DescribeChannelResponse -> Maybe Channel
channel :: Prelude.Maybe Channel,
DescribeChannelResponse -> Maybe ChannelStatistics
statistics :: Prelude.Maybe ChannelStatistics,
DescribeChannelResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeChannelResponse -> DescribeChannelResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeChannelResponse -> DescribeChannelResponse -> Bool
$c/= :: DescribeChannelResponse -> DescribeChannelResponse -> Bool
== :: DescribeChannelResponse -> DescribeChannelResponse -> Bool
$c== :: DescribeChannelResponse -> DescribeChannelResponse -> Bool
Prelude.Eq, ReadPrec [DescribeChannelResponse]
ReadPrec DescribeChannelResponse
Int -> ReadS DescribeChannelResponse
ReadS [DescribeChannelResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeChannelResponse]
$creadListPrec :: ReadPrec [DescribeChannelResponse]
readPrec :: ReadPrec DescribeChannelResponse
$creadPrec :: ReadPrec DescribeChannelResponse
readList :: ReadS [DescribeChannelResponse]
$creadList :: ReadS [DescribeChannelResponse]
readsPrec :: Int -> ReadS DescribeChannelResponse
$creadsPrec :: Int -> ReadS DescribeChannelResponse
Prelude.Read, Int -> DescribeChannelResponse -> ShowS
[DescribeChannelResponse] -> ShowS
DescribeChannelResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeChannelResponse] -> ShowS
$cshowList :: [DescribeChannelResponse] -> ShowS
show :: DescribeChannelResponse -> String
$cshow :: DescribeChannelResponse -> String
showsPrec :: Int -> DescribeChannelResponse -> ShowS
$cshowsPrec :: Int -> DescribeChannelResponse -> ShowS
Prelude.Show, forall x. Rep DescribeChannelResponse x -> DescribeChannelResponse
forall x. DescribeChannelResponse -> Rep DescribeChannelResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeChannelResponse x -> DescribeChannelResponse
$cfrom :: forall x. DescribeChannelResponse -> Rep DescribeChannelResponse x
Prelude.Generic)
newDescribeChannelResponse ::
Prelude.Int ->
DescribeChannelResponse
newDescribeChannelResponse :: Int -> DescribeChannelResponse
newDescribeChannelResponse Int
pHttpStatus_ =
DescribeChannelResponse'
{ $sel:channel:DescribeChannelResponse' :: Maybe Channel
channel = forall a. Maybe a
Prelude.Nothing,
$sel:statistics:DescribeChannelResponse' :: Maybe ChannelStatistics
statistics = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeChannelResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeChannelResponse_channel :: Lens.Lens' DescribeChannelResponse (Prelude.Maybe Channel)
describeChannelResponse_channel :: Lens' DescribeChannelResponse (Maybe Channel)
describeChannelResponse_channel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelResponse' {Maybe Channel
channel :: Maybe Channel
$sel:channel:DescribeChannelResponse' :: DescribeChannelResponse -> Maybe Channel
channel} -> Maybe Channel
channel) (\s :: DescribeChannelResponse
s@DescribeChannelResponse' {} Maybe Channel
a -> DescribeChannelResponse
s {$sel:channel:DescribeChannelResponse' :: Maybe Channel
channel = Maybe Channel
a} :: DescribeChannelResponse)
describeChannelResponse_statistics :: Lens.Lens' DescribeChannelResponse (Prelude.Maybe ChannelStatistics)
describeChannelResponse_statistics :: Lens' DescribeChannelResponse (Maybe ChannelStatistics)
describeChannelResponse_statistics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelResponse' {Maybe ChannelStatistics
statistics :: Maybe ChannelStatistics
$sel:statistics:DescribeChannelResponse' :: DescribeChannelResponse -> Maybe ChannelStatistics
statistics} -> Maybe ChannelStatistics
statistics) (\s :: DescribeChannelResponse
s@DescribeChannelResponse' {} Maybe ChannelStatistics
a -> DescribeChannelResponse
s {$sel:statistics:DescribeChannelResponse' :: Maybe ChannelStatistics
statistics = Maybe ChannelStatistics
a} :: DescribeChannelResponse)
describeChannelResponse_httpStatus :: Lens.Lens' DescribeChannelResponse Prelude.Int
describeChannelResponse_httpStatus :: Lens' DescribeChannelResponse Int
describeChannelResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeChannelResponse' :: DescribeChannelResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeChannelResponse
s@DescribeChannelResponse' {} Int
a -> DescribeChannelResponse
s {$sel:httpStatus:DescribeChannelResponse' :: Int
httpStatus = Int
a} :: DescribeChannelResponse)
instance Prelude.NFData DescribeChannelResponse where
rnf :: DescribeChannelResponse -> ()
rnf DescribeChannelResponse' {Int
Maybe ChannelStatistics
Maybe Channel
httpStatus :: Int
statistics :: Maybe ChannelStatistics
channel :: Maybe Channel
$sel:httpStatus:DescribeChannelResponse' :: DescribeChannelResponse -> Int
$sel:statistics:DescribeChannelResponse' :: DescribeChannelResponse -> Maybe ChannelStatistics
$sel:channel:DescribeChannelResponse' :: DescribeChannelResponse -> Maybe Channel
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Channel
channel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChannelStatistics
statistics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus