{-# 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.LookoutEquipment.DescribeLabelGroup
(
DescribeLabelGroup (..),
newDescribeLabelGroup,
describeLabelGroup_labelGroupName,
DescribeLabelGroupResponse (..),
newDescribeLabelGroupResponse,
describeLabelGroupResponse_createdAt,
describeLabelGroupResponse_faultCodes,
describeLabelGroupResponse_labelGroupArn,
describeLabelGroupResponse_labelGroupName,
describeLabelGroupResponse_updatedAt,
describeLabelGroupResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LookoutEquipment.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeLabelGroup = DescribeLabelGroup'
{
DescribeLabelGroup -> Text
labelGroupName :: Prelude.Text
}
deriving (DescribeLabelGroup -> DescribeLabelGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLabelGroup -> DescribeLabelGroup -> Bool
$c/= :: DescribeLabelGroup -> DescribeLabelGroup -> Bool
== :: DescribeLabelGroup -> DescribeLabelGroup -> Bool
$c== :: DescribeLabelGroup -> DescribeLabelGroup -> Bool
Prelude.Eq, ReadPrec [DescribeLabelGroup]
ReadPrec DescribeLabelGroup
Int -> ReadS DescribeLabelGroup
ReadS [DescribeLabelGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLabelGroup]
$creadListPrec :: ReadPrec [DescribeLabelGroup]
readPrec :: ReadPrec DescribeLabelGroup
$creadPrec :: ReadPrec DescribeLabelGroup
readList :: ReadS [DescribeLabelGroup]
$creadList :: ReadS [DescribeLabelGroup]
readsPrec :: Int -> ReadS DescribeLabelGroup
$creadsPrec :: Int -> ReadS DescribeLabelGroup
Prelude.Read, Int -> DescribeLabelGroup -> ShowS
[DescribeLabelGroup] -> ShowS
DescribeLabelGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLabelGroup] -> ShowS
$cshowList :: [DescribeLabelGroup] -> ShowS
show :: DescribeLabelGroup -> String
$cshow :: DescribeLabelGroup -> String
showsPrec :: Int -> DescribeLabelGroup -> ShowS
$cshowsPrec :: Int -> DescribeLabelGroup -> ShowS
Prelude.Show, forall x. Rep DescribeLabelGroup x -> DescribeLabelGroup
forall x. DescribeLabelGroup -> Rep DescribeLabelGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeLabelGroup x -> DescribeLabelGroup
$cfrom :: forall x. DescribeLabelGroup -> Rep DescribeLabelGroup x
Prelude.Generic)
newDescribeLabelGroup ::
Prelude.Text ->
DescribeLabelGroup
newDescribeLabelGroup :: Text -> DescribeLabelGroup
newDescribeLabelGroup Text
pLabelGroupName_ =
DescribeLabelGroup'
{ $sel:labelGroupName:DescribeLabelGroup' :: Text
labelGroupName =
Text
pLabelGroupName_
}
describeLabelGroup_labelGroupName :: Lens.Lens' DescribeLabelGroup Prelude.Text
describeLabelGroup_labelGroupName :: Lens' DescribeLabelGroup Text
describeLabelGroup_labelGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroup' {Text
labelGroupName :: Text
$sel:labelGroupName:DescribeLabelGroup' :: DescribeLabelGroup -> Text
labelGroupName} -> Text
labelGroupName) (\s :: DescribeLabelGroup
s@DescribeLabelGroup' {} Text
a -> DescribeLabelGroup
s {$sel:labelGroupName:DescribeLabelGroup' :: Text
labelGroupName = Text
a} :: DescribeLabelGroup)
instance Core.AWSRequest DescribeLabelGroup where
type
AWSResponse DescribeLabelGroup =
DescribeLabelGroupResponse
request :: (Service -> Service)
-> DescribeLabelGroup -> Request DescribeLabelGroup
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 DescribeLabelGroup
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeLabelGroup)))
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 POSIX
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Int
-> DescribeLabelGroupResponse
DescribeLabelGroupResponse'
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
"CreatedAt")
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
"FaultCodes" 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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"LabelGroupArn")
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
"LabelGroupName")
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
"UpdatedAt")
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 DescribeLabelGroup where
hashWithSalt :: Int -> DescribeLabelGroup -> Int
hashWithSalt Int
_salt DescribeLabelGroup' {Text
labelGroupName :: Text
$sel:labelGroupName:DescribeLabelGroup' :: DescribeLabelGroup -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
labelGroupName
instance Prelude.NFData DescribeLabelGroup where
rnf :: DescribeLabelGroup -> ()
rnf DescribeLabelGroup' {Text
labelGroupName :: Text
$sel:labelGroupName:DescribeLabelGroup' :: DescribeLabelGroup -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
labelGroupName
instance Data.ToHeaders DescribeLabelGroup where
toHeaders :: DescribeLabelGroup -> 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
"AWSLookoutEquipmentFrontendService.DescribeLabelGroup" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeLabelGroup where
toJSON :: DescribeLabelGroup -> Value
toJSON DescribeLabelGroup' {Text
labelGroupName :: Text
$sel:labelGroupName:DescribeLabelGroup' :: DescribeLabelGroup -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"LabelGroupName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
labelGroupName)
]
)
instance Data.ToPath DescribeLabelGroup where
toPath :: DescribeLabelGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeLabelGroup where
toQuery :: DescribeLabelGroup -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeLabelGroupResponse = DescribeLabelGroupResponse'
{
DescribeLabelGroupResponse -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
DescribeLabelGroupResponse -> Maybe [Text]
faultCodes :: Prelude.Maybe [Prelude.Text],
DescribeLabelGroupResponse -> Maybe Text
labelGroupArn :: Prelude.Maybe Prelude.Text,
DescribeLabelGroupResponse -> Maybe Text
labelGroupName :: Prelude.Maybe Prelude.Text,
DescribeLabelGroupResponse -> Maybe POSIX
updatedAt :: Prelude.Maybe Data.POSIX,
DescribeLabelGroupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeLabelGroupResponse -> DescribeLabelGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeLabelGroupResponse -> DescribeLabelGroupResponse -> Bool
$c/= :: DescribeLabelGroupResponse -> DescribeLabelGroupResponse -> Bool
== :: DescribeLabelGroupResponse -> DescribeLabelGroupResponse -> Bool
$c== :: DescribeLabelGroupResponse -> DescribeLabelGroupResponse -> Bool
Prelude.Eq, ReadPrec [DescribeLabelGroupResponse]
ReadPrec DescribeLabelGroupResponse
Int -> ReadS DescribeLabelGroupResponse
ReadS [DescribeLabelGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeLabelGroupResponse]
$creadListPrec :: ReadPrec [DescribeLabelGroupResponse]
readPrec :: ReadPrec DescribeLabelGroupResponse
$creadPrec :: ReadPrec DescribeLabelGroupResponse
readList :: ReadS [DescribeLabelGroupResponse]
$creadList :: ReadS [DescribeLabelGroupResponse]
readsPrec :: Int -> ReadS DescribeLabelGroupResponse
$creadsPrec :: Int -> ReadS DescribeLabelGroupResponse
Prelude.Read, Int -> DescribeLabelGroupResponse -> ShowS
[DescribeLabelGroupResponse] -> ShowS
DescribeLabelGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeLabelGroupResponse] -> ShowS
$cshowList :: [DescribeLabelGroupResponse] -> ShowS
show :: DescribeLabelGroupResponse -> String
$cshow :: DescribeLabelGroupResponse -> String
showsPrec :: Int -> DescribeLabelGroupResponse -> ShowS
$cshowsPrec :: Int -> DescribeLabelGroupResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeLabelGroupResponse x -> DescribeLabelGroupResponse
forall x.
DescribeLabelGroupResponse -> Rep DescribeLabelGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeLabelGroupResponse x -> DescribeLabelGroupResponse
$cfrom :: forall x.
DescribeLabelGroupResponse -> Rep DescribeLabelGroupResponse x
Prelude.Generic)
newDescribeLabelGroupResponse ::
Prelude.Int ->
DescribeLabelGroupResponse
newDescribeLabelGroupResponse :: Int -> DescribeLabelGroupResponse
newDescribeLabelGroupResponse Int
pHttpStatus_ =
DescribeLabelGroupResponse'
{ $sel:createdAt:DescribeLabelGroupResponse' :: Maybe POSIX
createdAt =
forall a. Maybe a
Prelude.Nothing,
$sel:faultCodes:DescribeLabelGroupResponse' :: Maybe [Text]
faultCodes = forall a. Maybe a
Prelude.Nothing,
$sel:labelGroupArn:DescribeLabelGroupResponse' :: Maybe Text
labelGroupArn = forall a. Maybe a
Prelude.Nothing,
$sel:labelGroupName:DescribeLabelGroupResponse' :: Maybe Text
labelGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:updatedAt:DescribeLabelGroupResponse' :: Maybe POSIX
updatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeLabelGroupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeLabelGroupResponse_createdAt :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.UTCTime)
describeLabelGroupResponse_createdAt :: Lens' DescribeLabelGroupResponse (Maybe UTCTime)
describeLabelGroupResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Maybe POSIX
a -> DescribeLabelGroupResponse
s {$sel:createdAt:DescribeLabelGroupResponse' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: DescribeLabelGroupResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
describeLabelGroupResponse_faultCodes :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe [Prelude.Text])
describeLabelGroupResponse_faultCodes :: Lens' DescribeLabelGroupResponse (Maybe [Text])
describeLabelGroupResponse_faultCodes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Maybe [Text]
faultCodes :: Maybe [Text]
$sel:faultCodes:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe [Text]
faultCodes} -> Maybe [Text]
faultCodes) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Maybe [Text]
a -> DescribeLabelGroupResponse
s {$sel:faultCodes:DescribeLabelGroupResponse' :: Maybe [Text]
faultCodes = Maybe [Text]
a} :: DescribeLabelGroupResponse) 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
describeLabelGroupResponse_labelGroupArn :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.Text)
describeLabelGroupResponse_labelGroupArn :: Lens' DescribeLabelGroupResponse (Maybe Text)
describeLabelGroupResponse_labelGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Maybe Text
labelGroupArn :: Maybe Text
$sel:labelGroupArn:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe Text
labelGroupArn} -> Maybe Text
labelGroupArn) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Maybe Text
a -> DescribeLabelGroupResponse
s {$sel:labelGroupArn:DescribeLabelGroupResponse' :: Maybe Text
labelGroupArn = Maybe Text
a} :: DescribeLabelGroupResponse)
describeLabelGroupResponse_labelGroupName :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.Text)
describeLabelGroupResponse_labelGroupName :: Lens' DescribeLabelGroupResponse (Maybe Text)
describeLabelGroupResponse_labelGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Maybe Text
labelGroupName :: Maybe Text
$sel:labelGroupName:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe Text
labelGroupName} -> Maybe Text
labelGroupName) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Maybe Text
a -> DescribeLabelGroupResponse
s {$sel:labelGroupName:DescribeLabelGroupResponse' :: Maybe Text
labelGroupName = Maybe Text
a} :: DescribeLabelGroupResponse)
describeLabelGroupResponse_updatedAt :: Lens.Lens' DescribeLabelGroupResponse (Prelude.Maybe Prelude.UTCTime)
describeLabelGroupResponse_updatedAt :: Lens' DescribeLabelGroupResponse (Maybe UTCTime)
describeLabelGroupResponse_updatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Maybe POSIX
updatedAt :: Maybe POSIX
$sel:updatedAt:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe POSIX
updatedAt} -> Maybe POSIX
updatedAt) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Maybe POSIX
a -> DescribeLabelGroupResponse
s {$sel:updatedAt:DescribeLabelGroupResponse' :: Maybe POSIX
updatedAt = Maybe POSIX
a} :: DescribeLabelGroupResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
describeLabelGroupResponse_httpStatus :: Lens.Lens' DescribeLabelGroupResponse Prelude.Int
describeLabelGroupResponse_httpStatus :: Lens' DescribeLabelGroupResponse Int
describeLabelGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeLabelGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeLabelGroupResponse
s@DescribeLabelGroupResponse' {} Int
a -> DescribeLabelGroupResponse
s {$sel:httpStatus:DescribeLabelGroupResponse' :: Int
httpStatus = Int
a} :: DescribeLabelGroupResponse)
instance Prelude.NFData DescribeLabelGroupResponse where
rnf :: DescribeLabelGroupResponse -> ()
rnf DescribeLabelGroupResponse' {Int
Maybe [Text]
Maybe Text
Maybe POSIX
httpStatus :: Int
updatedAt :: Maybe POSIX
labelGroupName :: Maybe Text
labelGroupArn :: Maybe Text
faultCodes :: Maybe [Text]
createdAt :: Maybe POSIX
$sel:httpStatus:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Int
$sel:updatedAt:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe POSIX
$sel:labelGroupName:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe Text
$sel:labelGroupArn:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe Text
$sel:faultCodes:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe [Text]
$sel:createdAt:DescribeLabelGroupResponse' :: DescribeLabelGroupResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
faultCodes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
labelGroupArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
labelGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
updatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus