{-# 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.IoTData.Publish
(
Publish (..),
newPublish,
publish_contentType,
publish_correlationData,
publish_messageExpiry,
publish_payload,
publish_payloadFormatIndicator,
publish_qos,
publish_responseTopic,
publish_retain,
publish_userProperties,
publish_topic,
PublishResponse (..),
newPublishResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTData.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data Publish = Publish'
{
Publish -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
Publish -> Maybe Text
correlationData :: Prelude.Maybe Prelude.Text,
Publish -> Maybe Integer
messageExpiry :: Prelude.Maybe Prelude.Integer,
Publish -> Maybe ByteString
payload :: Prelude.Maybe Prelude.ByteString,
Publish -> Maybe PayloadFormatIndicator
payloadFormatIndicator :: Prelude.Maybe PayloadFormatIndicator,
Publish -> Maybe Natural
qos :: Prelude.Maybe Prelude.Natural,
Publish -> Maybe Text
responseTopic :: Prelude.Maybe Prelude.Text,
Publish -> Maybe Bool
retain :: Prelude.Maybe Prelude.Bool,
Publish -> Maybe Text
userProperties :: Prelude.Maybe Prelude.Text,
Publish -> Text
topic :: Prelude.Text
}
deriving (Publish -> Publish -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Publish -> Publish -> Bool
$c/= :: Publish -> Publish -> Bool
== :: Publish -> Publish -> Bool
$c== :: Publish -> Publish -> Bool
Prelude.Eq, ReadPrec [Publish]
ReadPrec Publish
Int -> ReadS Publish
ReadS [Publish]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Publish]
$creadListPrec :: ReadPrec [Publish]
readPrec :: ReadPrec Publish
$creadPrec :: ReadPrec Publish
readList :: ReadS [Publish]
$creadList :: ReadS [Publish]
readsPrec :: Int -> ReadS Publish
$creadsPrec :: Int -> ReadS Publish
Prelude.Read, Int -> Publish -> ShowS
[Publish] -> ShowS
Publish -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Publish] -> ShowS
$cshowList :: [Publish] -> ShowS
show :: Publish -> String
$cshow :: Publish -> String
showsPrec :: Int -> Publish -> ShowS
$cshowsPrec :: Int -> Publish -> ShowS
Prelude.Show, forall x. Rep Publish x -> Publish
forall x. Publish -> Rep Publish x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Publish x -> Publish
$cfrom :: forall x. Publish -> Rep Publish x
Prelude.Generic)
newPublish ::
Prelude.Text ->
Publish
newPublish :: Text -> Publish
newPublish Text
pTopic_ =
Publish'
{ $sel:contentType:Publish' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
$sel:correlationData:Publish' :: Maybe Text
correlationData = forall a. Maybe a
Prelude.Nothing,
$sel:messageExpiry:Publish' :: Maybe Integer
messageExpiry = forall a. Maybe a
Prelude.Nothing,
$sel:payload:Publish' :: Maybe ByteString
payload = forall a. Maybe a
Prelude.Nothing,
$sel:payloadFormatIndicator:Publish' :: Maybe PayloadFormatIndicator
payloadFormatIndicator = forall a. Maybe a
Prelude.Nothing,
$sel:qos:Publish' :: Maybe Natural
qos = forall a. Maybe a
Prelude.Nothing,
$sel:responseTopic:Publish' :: Maybe Text
responseTopic = forall a. Maybe a
Prelude.Nothing,
$sel:retain:Publish' :: Maybe Bool
retain = forall a. Maybe a
Prelude.Nothing,
$sel:userProperties:Publish' :: Maybe Text
userProperties = forall a. Maybe a
Prelude.Nothing,
$sel:topic:Publish' :: Text
topic = Text
pTopic_
}
publish_contentType :: Lens.Lens' Publish (Prelude.Maybe Prelude.Text)
publish_contentType :: Lens' Publish (Maybe Text)
publish_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Text
contentType :: Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: Publish
s@Publish' {} Maybe Text
a -> Publish
s {$sel:contentType:Publish' :: Maybe Text
contentType = Maybe Text
a} :: Publish)
publish_correlationData :: Lens.Lens' Publish (Prelude.Maybe Prelude.Text)
publish_correlationData :: Lens' Publish (Maybe Text)
publish_correlationData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Text
correlationData :: Maybe Text
$sel:correlationData:Publish' :: Publish -> Maybe Text
correlationData} -> Maybe Text
correlationData) (\s :: Publish
s@Publish' {} Maybe Text
a -> Publish
s {$sel:correlationData:Publish' :: Maybe Text
correlationData = Maybe Text
a} :: Publish)
publish_messageExpiry :: Lens.Lens' Publish (Prelude.Maybe Prelude.Integer)
publish_messageExpiry :: Lens' Publish (Maybe Integer)
publish_messageExpiry = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Integer
messageExpiry :: Maybe Integer
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
messageExpiry} -> Maybe Integer
messageExpiry) (\s :: Publish
s@Publish' {} Maybe Integer
a -> Publish
s {$sel:messageExpiry:Publish' :: Maybe Integer
messageExpiry = Maybe Integer
a} :: Publish)
publish_payload :: Lens.Lens' Publish (Prelude.Maybe Prelude.ByteString)
publish_payload :: Lens' Publish (Maybe ByteString)
publish_payload = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe ByteString
payload :: Maybe ByteString
$sel:payload:Publish' :: Publish -> Maybe ByteString
payload} -> Maybe ByteString
payload) (\s :: Publish
s@Publish' {} Maybe ByteString
a -> Publish
s {$sel:payload:Publish' :: Maybe ByteString
payload = Maybe ByteString
a} :: Publish)
publish_payloadFormatIndicator :: Lens.Lens' Publish (Prelude.Maybe PayloadFormatIndicator)
publish_payloadFormatIndicator :: Lens' Publish (Maybe PayloadFormatIndicator)
publish_payloadFormatIndicator = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe PayloadFormatIndicator
payloadFormatIndicator :: Maybe PayloadFormatIndicator
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
payloadFormatIndicator} -> Maybe PayloadFormatIndicator
payloadFormatIndicator) (\s :: Publish
s@Publish' {} Maybe PayloadFormatIndicator
a -> Publish
s {$sel:payloadFormatIndicator:Publish' :: Maybe PayloadFormatIndicator
payloadFormatIndicator = Maybe PayloadFormatIndicator
a} :: Publish)
publish_qos :: Lens.Lens' Publish (Prelude.Maybe Prelude.Natural)
publish_qos :: Lens' Publish (Maybe Natural)
publish_qos = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Natural
qos :: Maybe Natural
$sel:qos:Publish' :: Publish -> Maybe Natural
qos} -> Maybe Natural
qos) (\s :: Publish
s@Publish' {} Maybe Natural
a -> Publish
s {$sel:qos:Publish' :: Maybe Natural
qos = Maybe Natural
a} :: Publish)
publish_responseTopic :: Lens.Lens' Publish (Prelude.Maybe Prelude.Text)
publish_responseTopic :: Lens' Publish (Maybe Text)
publish_responseTopic = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Text
responseTopic :: Maybe Text
$sel:responseTopic:Publish' :: Publish -> Maybe Text
responseTopic} -> Maybe Text
responseTopic) (\s :: Publish
s@Publish' {} Maybe Text
a -> Publish
s {$sel:responseTopic:Publish' :: Maybe Text
responseTopic = Maybe Text
a} :: Publish)
publish_retain :: Lens.Lens' Publish (Prelude.Maybe Prelude.Bool)
publish_retain :: Lens' Publish (Maybe Bool)
publish_retain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Bool
retain :: Maybe Bool
$sel:retain:Publish' :: Publish -> Maybe Bool
retain} -> Maybe Bool
retain) (\s :: Publish
s@Publish' {} Maybe Bool
a -> Publish
s {$sel:retain:Publish' :: Maybe Bool
retain = Maybe Bool
a} :: Publish)
publish_userProperties :: Lens.Lens' Publish (Prelude.Maybe Prelude.Text)
publish_userProperties :: Lens' Publish (Maybe Text)
publish_userProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Maybe Text
userProperties :: Maybe Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
userProperties} -> Maybe Text
userProperties) (\s :: Publish
s@Publish' {} Maybe Text
a -> Publish
s {$sel:userProperties:Publish' :: Maybe Text
userProperties = Maybe Text
a} :: Publish)
publish_topic :: Lens.Lens' Publish Prelude.Text
publish_topic :: Lens' Publish Text
publish_topic = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Publish' {Text
topic :: Text
$sel:topic:Publish' :: Publish -> Text
topic} -> Text
topic) (\s :: Publish
s@Publish' {} Text
a -> Publish
s {$sel:topic:Publish' :: Text
topic = Text
a} :: Publish)
instance Core.AWSRequest Publish where
type AWSResponse Publish = PublishResponse
request :: (Service -> Service) -> Publish -> Request Publish
request Service -> Service
overrides =
forall a. (ToRequest a, ToBody a) => Service -> a -> Request a
Request.postBody (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy Publish
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse Publish)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull PublishResponse
PublishResponse'
instance Prelude.Hashable Publish where
hashWithSalt :: Int -> Publish -> Int
hashWithSalt Int
_salt Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
contentType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
correlationData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
messageExpiry
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ByteString
payload
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PayloadFormatIndicator
payloadFormatIndicator
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
qos
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
responseTopic
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
retain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
userProperties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
topic
instance Prelude.NFData Publish where
rnf :: Publish -> ()
rnf Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
contentType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
correlationData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
messageExpiry
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ByteString
payload
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PayloadFormatIndicator
payloadFormatIndicator
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
qos
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
responseTopic
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
retain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
userProperties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
topic
instance Data.ToBody Publish where
toBody :: Publish -> RequestBody
toBody Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} = forall a. ToBody a => a -> RequestBody
Data.toBody Maybe ByteString
payload
instance Data.ToHeaders Publish where
toHeaders :: Publish -> [Header]
toHeaders Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-mqtt5-correlation-data"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
correlationData,
HeaderName
"x-amz-mqtt5-payload-format-indicator"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe PayloadFormatIndicator
payloadFormatIndicator,
HeaderName
"x-amz-mqtt5-user-properties" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
userProperties
]
instance Data.ToPath Publish where
toPath :: Publish -> ByteString
toPath Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/topics/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
topic]
instance Data.ToQuery Publish where
toQuery :: Publish -> QueryString
toQuery Publish' {Maybe Bool
Maybe Integer
Maybe Natural
Maybe ByteString
Maybe Text
Maybe PayloadFormatIndicator
Text
topic :: Text
userProperties :: Maybe Text
retain :: Maybe Bool
responseTopic :: Maybe Text
qos :: Maybe Natural
payloadFormatIndicator :: Maybe PayloadFormatIndicator
payload :: Maybe ByteString
messageExpiry :: Maybe Integer
correlationData :: Maybe Text
contentType :: Maybe Text
$sel:topic:Publish' :: Publish -> Text
$sel:userProperties:Publish' :: Publish -> Maybe Text
$sel:retain:Publish' :: Publish -> Maybe Bool
$sel:responseTopic:Publish' :: Publish -> Maybe Text
$sel:qos:Publish' :: Publish -> Maybe Natural
$sel:payloadFormatIndicator:Publish' :: Publish -> Maybe PayloadFormatIndicator
$sel:payload:Publish' :: Publish -> Maybe ByteString
$sel:messageExpiry:Publish' :: Publish -> Maybe Integer
$sel:correlationData:Publish' :: Publish -> Maybe Text
$sel:contentType:Publish' :: Publish -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"contentType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
contentType,
ByteString
"messageExpiry" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Integer
messageExpiry,
ByteString
"qos" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
qos,
ByteString
"responseTopic" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
responseTopic,
ByteString
"retain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
retain
]
data PublishResponse = PublishResponse'
{
}
deriving (PublishResponse -> PublishResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PublishResponse -> PublishResponse -> Bool
$c/= :: PublishResponse -> PublishResponse -> Bool
== :: PublishResponse -> PublishResponse -> Bool
$c== :: PublishResponse -> PublishResponse -> Bool
Prelude.Eq, ReadPrec [PublishResponse]
ReadPrec PublishResponse
Int -> ReadS PublishResponse
ReadS [PublishResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PublishResponse]
$creadListPrec :: ReadPrec [PublishResponse]
readPrec :: ReadPrec PublishResponse
$creadPrec :: ReadPrec PublishResponse
readList :: ReadS [PublishResponse]
$creadList :: ReadS [PublishResponse]
readsPrec :: Int -> ReadS PublishResponse
$creadsPrec :: Int -> ReadS PublishResponse
Prelude.Read, Int -> PublishResponse -> ShowS
[PublishResponse] -> ShowS
PublishResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PublishResponse] -> ShowS
$cshowList :: [PublishResponse] -> ShowS
show :: PublishResponse -> String
$cshow :: PublishResponse -> String
showsPrec :: Int -> PublishResponse -> ShowS
$cshowsPrec :: Int -> PublishResponse -> ShowS
Prelude.Show, forall x. Rep PublishResponse x -> PublishResponse
forall x. PublishResponse -> Rep PublishResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PublishResponse x -> PublishResponse
$cfrom :: forall x. PublishResponse -> Rep PublishResponse x
Prelude.Generic)
newPublishResponse ::
PublishResponse
newPublishResponse :: PublishResponse
newPublishResponse = PublishResponse
PublishResponse'
instance Prelude.NFData PublishResponse where
rnf :: PublishResponse -> ()
rnf PublishResponse
_ = ()