{-# 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.Panorama.SignalApplicationInstanceNodeInstances
(
SignalApplicationInstanceNodeInstances (..),
newSignalApplicationInstanceNodeInstances,
signalApplicationInstanceNodeInstances_applicationInstanceId,
signalApplicationInstanceNodeInstances_nodeSignals,
SignalApplicationInstanceNodeInstancesResponse (..),
newSignalApplicationInstanceNodeInstancesResponse,
signalApplicationInstanceNodeInstancesResponse_httpStatus,
signalApplicationInstanceNodeInstancesResponse_applicationInstanceId,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Panorama.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SignalApplicationInstanceNodeInstances = SignalApplicationInstanceNodeInstances'
{
SignalApplicationInstanceNodeInstances -> Text
applicationInstanceId :: Prelude.Text,
SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
nodeSignals :: Prelude.NonEmpty NodeSignal
}
deriving (SignalApplicationInstanceNodeInstances
-> SignalApplicationInstanceNodeInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignalApplicationInstanceNodeInstances
-> SignalApplicationInstanceNodeInstances -> Bool
$c/= :: SignalApplicationInstanceNodeInstances
-> SignalApplicationInstanceNodeInstances -> Bool
== :: SignalApplicationInstanceNodeInstances
-> SignalApplicationInstanceNodeInstances -> Bool
$c== :: SignalApplicationInstanceNodeInstances
-> SignalApplicationInstanceNodeInstances -> Bool
Prelude.Eq, ReadPrec [SignalApplicationInstanceNodeInstances]
ReadPrec SignalApplicationInstanceNodeInstances
Int -> ReadS SignalApplicationInstanceNodeInstances
ReadS [SignalApplicationInstanceNodeInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SignalApplicationInstanceNodeInstances]
$creadListPrec :: ReadPrec [SignalApplicationInstanceNodeInstances]
readPrec :: ReadPrec SignalApplicationInstanceNodeInstances
$creadPrec :: ReadPrec SignalApplicationInstanceNodeInstances
readList :: ReadS [SignalApplicationInstanceNodeInstances]
$creadList :: ReadS [SignalApplicationInstanceNodeInstances]
readsPrec :: Int -> ReadS SignalApplicationInstanceNodeInstances
$creadsPrec :: Int -> ReadS SignalApplicationInstanceNodeInstances
Prelude.Read, Int -> SignalApplicationInstanceNodeInstances -> ShowS
[SignalApplicationInstanceNodeInstances] -> ShowS
SignalApplicationInstanceNodeInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SignalApplicationInstanceNodeInstances] -> ShowS
$cshowList :: [SignalApplicationInstanceNodeInstances] -> ShowS
show :: SignalApplicationInstanceNodeInstances -> String
$cshow :: SignalApplicationInstanceNodeInstances -> String
showsPrec :: Int -> SignalApplicationInstanceNodeInstances -> ShowS
$cshowsPrec :: Int -> SignalApplicationInstanceNodeInstances -> ShowS
Prelude.Show, forall x.
Rep SignalApplicationInstanceNodeInstances x
-> SignalApplicationInstanceNodeInstances
forall x.
SignalApplicationInstanceNodeInstances
-> Rep SignalApplicationInstanceNodeInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SignalApplicationInstanceNodeInstances x
-> SignalApplicationInstanceNodeInstances
$cfrom :: forall x.
SignalApplicationInstanceNodeInstances
-> Rep SignalApplicationInstanceNodeInstances x
Prelude.Generic)
newSignalApplicationInstanceNodeInstances ::
Prelude.Text ->
Prelude.NonEmpty NodeSignal ->
SignalApplicationInstanceNodeInstances
newSignalApplicationInstanceNodeInstances :: Text
-> NonEmpty NodeSignal -> SignalApplicationInstanceNodeInstances
newSignalApplicationInstanceNodeInstances
Text
pApplicationInstanceId_
NonEmpty NodeSignal
pNodeSignals_ =
SignalApplicationInstanceNodeInstances'
{ $sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: Text
applicationInstanceId =
Text
pApplicationInstanceId_,
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: NonEmpty NodeSignal
nodeSignals =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced forall t b. AReview t b -> b -> t
Lens.# NonEmpty NodeSignal
pNodeSignals_
}
signalApplicationInstanceNodeInstances_applicationInstanceId :: Lens.Lens' SignalApplicationInstanceNodeInstances Prelude.Text
signalApplicationInstanceNodeInstances_applicationInstanceId :: Lens' SignalApplicationInstanceNodeInstances Text
signalApplicationInstanceNodeInstances_applicationInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignalApplicationInstanceNodeInstances' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> Text
applicationInstanceId} -> Text
applicationInstanceId) (\s :: SignalApplicationInstanceNodeInstances
s@SignalApplicationInstanceNodeInstances' {} Text
a -> SignalApplicationInstanceNodeInstances
s {$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: Text
applicationInstanceId = Text
a} :: SignalApplicationInstanceNodeInstances)
signalApplicationInstanceNodeInstances_nodeSignals :: Lens.Lens' SignalApplicationInstanceNodeInstances (Prelude.NonEmpty NodeSignal)
signalApplicationInstanceNodeInstances_nodeSignals :: Lens' SignalApplicationInstanceNodeInstances (NonEmpty NodeSignal)
signalApplicationInstanceNodeInstances_nodeSignals = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignalApplicationInstanceNodeInstances' {NonEmpty NodeSignal
nodeSignals :: NonEmpty NodeSignal
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
nodeSignals} -> NonEmpty NodeSignal
nodeSignals) (\s :: SignalApplicationInstanceNodeInstances
s@SignalApplicationInstanceNodeInstances' {} NonEmpty NodeSignal
a -> SignalApplicationInstanceNodeInstances
s {$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: NonEmpty NodeSignal
nodeSignals = NonEmpty NodeSignal
a} :: SignalApplicationInstanceNodeInstances) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Core.AWSRequest
SignalApplicationInstanceNodeInstances
where
type
AWSResponse
SignalApplicationInstanceNodeInstances =
SignalApplicationInstanceNodeInstancesResponse
request :: (Service -> Service)
-> SignalApplicationInstanceNodeInstances
-> Request SignalApplicationInstanceNodeInstances
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SignalApplicationInstanceNodeInstances
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse SignalApplicationInstanceNodeInstances)))
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 ->
Int -> Text -> SignalApplicationInstanceNodeInstancesResponse
SignalApplicationInstanceNodeInstancesResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ApplicationInstanceId")
)
instance
Prelude.Hashable
SignalApplicationInstanceNodeInstances
where
hashWithSalt :: Int -> SignalApplicationInstanceNodeInstances -> Int
hashWithSalt
Int
_salt
SignalApplicationInstanceNodeInstances' {NonEmpty NodeSignal
Text
nodeSignals :: NonEmpty NodeSignal
applicationInstanceId :: Text
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationInstanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty NodeSignal
nodeSignals
instance
Prelude.NFData
SignalApplicationInstanceNodeInstances
where
rnf :: SignalApplicationInstanceNodeInstances -> ()
rnf SignalApplicationInstanceNodeInstances' {NonEmpty NodeSignal
Text
nodeSignals :: NonEmpty NodeSignal
applicationInstanceId :: Text
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
applicationInstanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty NodeSignal
nodeSignals
instance
Data.ToHeaders
SignalApplicationInstanceNodeInstances
where
toHeaders :: SignalApplicationInstanceNodeInstances -> 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.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
SignalApplicationInstanceNodeInstances
where
toJSON :: SignalApplicationInstanceNodeInstances -> Value
toJSON SignalApplicationInstanceNodeInstances' {NonEmpty NodeSignal
Text
nodeSignals :: NonEmpty NodeSignal
applicationInstanceId :: Text
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"NodeSignals" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty NodeSignal
nodeSignals)]
)
instance
Data.ToPath
SignalApplicationInstanceNodeInstances
where
toPath :: SignalApplicationInstanceNodeInstances -> ByteString
toPath SignalApplicationInstanceNodeInstances' {NonEmpty NodeSignal
Text
nodeSignals :: NonEmpty NodeSignal
applicationInstanceId :: Text
$sel:nodeSignals:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> NonEmpty NodeSignal
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstances' :: SignalApplicationInstanceNodeInstances -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/application-instances/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationInstanceId,
ByteString
"/node-signals"
]
instance
Data.ToQuery
SignalApplicationInstanceNodeInstances
where
toQuery :: SignalApplicationInstanceNodeInstances -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SignalApplicationInstanceNodeInstancesResponse = SignalApplicationInstanceNodeInstancesResponse'
{
SignalApplicationInstanceNodeInstancesResponse -> Int
httpStatus :: Prelude.Int,
SignalApplicationInstanceNodeInstancesResponse -> Text
applicationInstanceId :: Prelude.Text
}
deriving (SignalApplicationInstanceNodeInstancesResponse
-> SignalApplicationInstanceNodeInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignalApplicationInstanceNodeInstancesResponse
-> SignalApplicationInstanceNodeInstancesResponse -> Bool
$c/= :: SignalApplicationInstanceNodeInstancesResponse
-> SignalApplicationInstanceNodeInstancesResponse -> Bool
== :: SignalApplicationInstanceNodeInstancesResponse
-> SignalApplicationInstanceNodeInstancesResponse -> Bool
$c== :: SignalApplicationInstanceNodeInstancesResponse
-> SignalApplicationInstanceNodeInstancesResponse -> Bool
Prelude.Eq, ReadPrec [SignalApplicationInstanceNodeInstancesResponse]
ReadPrec SignalApplicationInstanceNodeInstancesResponse
Int -> ReadS SignalApplicationInstanceNodeInstancesResponse
ReadS [SignalApplicationInstanceNodeInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SignalApplicationInstanceNodeInstancesResponse]
$creadListPrec :: ReadPrec [SignalApplicationInstanceNodeInstancesResponse]
readPrec :: ReadPrec SignalApplicationInstanceNodeInstancesResponse
$creadPrec :: ReadPrec SignalApplicationInstanceNodeInstancesResponse
readList :: ReadS [SignalApplicationInstanceNodeInstancesResponse]
$creadList :: ReadS [SignalApplicationInstanceNodeInstancesResponse]
readsPrec :: Int -> ReadS SignalApplicationInstanceNodeInstancesResponse
$creadsPrec :: Int -> ReadS SignalApplicationInstanceNodeInstancesResponse
Prelude.Read, Int -> SignalApplicationInstanceNodeInstancesResponse -> ShowS
[SignalApplicationInstanceNodeInstancesResponse] -> ShowS
SignalApplicationInstanceNodeInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SignalApplicationInstanceNodeInstancesResponse] -> ShowS
$cshowList :: [SignalApplicationInstanceNodeInstancesResponse] -> ShowS
show :: SignalApplicationInstanceNodeInstancesResponse -> String
$cshow :: SignalApplicationInstanceNodeInstancesResponse -> String
showsPrec :: Int -> SignalApplicationInstanceNodeInstancesResponse -> ShowS
$cshowsPrec :: Int -> SignalApplicationInstanceNodeInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep SignalApplicationInstanceNodeInstancesResponse x
-> SignalApplicationInstanceNodeInstancesResponse
forall x.
SignalApplicationInstanceNodeInstancesResponse
-> Rep SignalApplicationInstanceNodeInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SignalApplicationInstanceNodeInstancesResponse x
-> SignalApplicationInstanceNodeInstancesResponse
$cfrom :: forall x.
SignalApplicationInstanceNodeInstancesResponse
-> Rep SignalApplicationInstanceNodeInstancesResponse x
Prelude.Generic)
newSignalApplicationInstanceNodeInstancesResponse ::
Prelude.Int ->
Prelude.Text ->
SignalApplicationInstanceNodeInstancesResponse
newSignalApplicationInstanceNodeInstancesResponse :: Int -> Text -> SignalApplicationInstanceNodeInstancesResponse
newSignalApplicationInstanceNodeInstancesResponse
Int
pHttpStatus_
Text
pApplicationInstanceId_ =
SignalApplicationInstanceNodeInstancesResponse'
{ $sel:httpStatus:SignalApplicationInstanceNodeInstancesResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstancesResponse' :: Text
applicationInstanceId =
Text
pApplicationInstanceId_
}
signalApplicationInstanceNodeInstancesResponse_httpStatus :: Lens.Lens' SignalApplicationInstanceNodeInstancesResponse Prelude.Int
signalApplicationInstanceNodeInstancesResponse_httpStatus :: Lens' SignalApplicationInstanceNodeInstancesResponse Int
signalApplicationInstanceNodeInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignalApplicationInstanceNodeInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:SignalApplicationInstanceNodeInstancesResponse' :: SignalApplicationInstanceNodeInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SignalApplicationInstanceNodeInstancesResponse
s@SignalApplicationInstanceNodeInstancesResponse' {} Int
a -> SignalApplicationInstanceNodeInstancesResponse
s {$sel:httpStatus:SignalApplicationInstanceNodeInstancesResponse' :: Int
httpStatus = Int
a} :: SignalApplicationInstanceNodeInstancesResponse)
signalApplicationInstanceNodeInstancesResponse_applicationInstanceId :: Lens.Lens' SignalApplicationInstanceNodeInstancesResponse Prelude.Text
signalApplicationInstanceNodeInstancesResponse_applicationInstanceId :: Lens' SignalApplicationInstanceNodeInstancesResponse Text
signalApplicationInstanceNodeInstancesResponse_applicationInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignalApplicationInstanceNodeInstancesResponse' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstancesResponse' :: SignalApplicationInstanceNodeInstancesResponse -> Text
applicationInstanceId} -> Text
applicationInstanceId) (\s :: SignalApplicationInstanceNodeInstancesResponse
s@SignalApplicationInstanceNodeInstancesResponse' {} Text
a -> SignalApplicationInstanceNodeInstancesResponse
s {$sel:applicationInstanceId:SignalApplicationInstanceNodeInstancesResponse' :: Text
applicationInstanceId = Text
a} :: SignalApplicationInstanceNodeInstancesResponse)
instance
Prelude.NFData
SignalApplicationInstanceNodeInstancesResponse
where
rnf :: SignalApplicationInstanceNodeInstancesResponse -> ()
rnf
SignalApplicationInstanceNodeInstancesResponse' {Int
Text
applicationInstanceId :: Text
httpStatus :: Int
$sel:applicationInstanceId:SignalApplicationInstanceNodeInstancesResponse' :: SignalApplicationInstanceNodeInstancesResponse -> Text
$sel:httpStatus:SignalApplicationInstanceNodeInstancesResponse' :: SignalApplicationInstanceNodeInstancesResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationInstanceId