{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Pinpoint.Types.APNSMessage where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Pinpoint.Types.Action
import qualified Amazonka.Prelude as Prelude
data APNSMessage = APNSMessage'
{
APNSMessage -> Maybe Text
aPNSPushType :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Action
action :: Prelude.Maybe Action,
APNSMessage -> Maybe Int
badge :: Prelude.Maybe Prelude.Int,
APNSMessage -> Maybe Text
body :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
category :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
collapseId :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe (HashMap Text Text)
data' :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
APNSMessage -> Maybe Text
mediaUrl :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
preferredAuthenticationMethod :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
priority :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
rawContent :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Bool
silentPush :: Prelude.Maybe Prelude.Bool,
APNSMessage -> Maybe Text
sound :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe (HashMap Text [Text])
substitutions :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),
APNSMessage -> Maybe Text
threadId :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Int
timeToLive :: Prelude.Maybe Prelude.Int,
APNSMessage -> Maybe Text
title :: Prelude.Maybe Prelude.Text,
APNSMessage -> Maybe Text
url :: Prelude.Maybe Prelude.Text
}
deriving (APNSMessage -> APNSMessage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: APNSMessage -> APNSMessage -> Bool
$c/= :: APNSMessage -> APNSMessage -> Bool
== :: APNSMessage -> APNSMessage -> Bool
$c== :: APNSMessage -> APNSMessage -> Bool
Prelude.Eq, ReadPrec [APNSMessage]
ReadPrec APNSMessage
Int -> ReadS APNSMessage
ReadS [APNSMessage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [APNSMessage]
$creadListPrec :: ReadPrec [APNSMessage]
readPrec :: ReadPrec APNSMessage
$creadPrec :: ReadPrec APNSMessage
readList :: ReadS [APNSMessage]
$creadList :: ReadS [APNSMessage]
readsPrec :: Int -> ReadS APNSMessage
$creadsPrec :: Int -> ReadS APNSMessage
Prelude.Read, Int -> APNSMessage -> ShowS
[APNSMessage] -> ShowS
APNSMessage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [APNSMessage] -> ShowS
$cshowList :: [APNSMessage] -> ShowS
show :: APNSMessage -> String
$cshow :: APNSMessage -> String
showsPrec :: Int -> APNSMessage -> ShowS
$cshowsPrec :: Int -> APNSMessage -> ShowS
Prelude.Show, forall x. Rep APNSMessage x -> APNSMessage
forall x. APNSMessage -> Rep APNSMessage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep APNSMessage x -> APNSMessage
$cfrom :: forall x. APNSMessage -> Rep APNSMessage x
Prelude.Generic)
newAPNSMessage ::
APNSMessage
newAPNSMessage :: APNSMessage
newAPNSMessage =
APNSMessage'
{ $sel:aPNSPushType:APNSMessage' :: Maybe Text
aPNSPushType = forall a. Maybe a
Prelude.Nothing,
$sel:action:APNSMessage' :: Maybe Action
action = forall a. Maybe a
Prelude.Nothing,
$sel:badge:APNSMessage' :: Maybe Int
badge = forall a. Maybe a
Prelude.Nothing,
$sel:body:APNSMessage' :: Maybe Text
body = forall a. Maybe a
Prelude.Nothing,
$sel:category:APNSMessage' :: Maybe Text
category = forall a. Maybe a
Prelude.Nothing,
$sel:collapseId:APNSMessage' :: Maybe Text
collapseId = forall a. Maybe a
Prelude.Nothing,
$sel:data':APNSMessage' :: Maybe (HashMap Text Text)
data' = forall a. Maybe a
Prelude.Nothing,
$sel:mediaUrl:APNSMessage' :: Maybe Text
mediaUrl = forall a. Maybe a
Prelude.Nothing,
$sel:preferredAuthenticationMethod:APNSMessage' :: Maybe Text
preferredAuthenticationMethod = forall a. Maybe a
Prelude.Nothing,
$sel:priority:APNSMessage' :: Maybe Text
priority = forall a. Maybe a
Prelude.Nothing,
$sel:rawContent:APNSMessage' :: Maybe Text
rawContent = forall a. Maybe a
Prelude.Nothing,
$sel:silentPush:APNSMessage' :: Maybe Bool
silentPush = forall a. Maybe a
Prelude.Nothing,
$sel:sound:APNSMessage' :: Maybe Text
sound = forall a. Maybe a
Prelude.Nothing,
$sel:substitutions:APNSMessage' :: Maybe (HashMap Text [Text])
substitutions = forall a. Maybe a
Prelude.Nothing,
$sel:threadId:APNSMessage' :: Maybe Text
threadId = forall a. Maybe a
Prelude.Nothing,
$sel:timeToLive:APNSMessage' :: Maybe Int
timeToLive = forall a. Maybe a
Prelude.Nothing,
$sel:title:APNSMessage' :: Maybe Text
title = forall a. Maybe a
Prelude.Nothing,
$sel:url:APNSMessage' :: Maybe Text
url = forall a. Maybe a
Prelude.Nothing
}
aPNSMessage_aPNSPushType :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_aPNSPushType :: Lens' APNSMessage (Maybe Text)
aPNSMessage_aPNSPushType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
aPNSPushType :: Maybe Text
$sel:aPNSPushType:APNSMessage' :: APNSMessage -> Maybe Text
aPNSPushType} -> Maybe Text
aPNSPushType) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:aPNSPushType:APNSMessage' :: Maybe Text
aPNSPushType = Maybe Text
a} :: APNSMessage)
aPNSMessage_action :: Lens.Lens' APNSMessage (Prelude.Maybe Action)
aPNSMessage_action :: Lens' APNSMessage (Maybe Action)
aPNSMessage_action = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Action
action :: Maybe Action
$sel:action:APNSMessage' :: APNSMessage -> Maybe Action
action} -> Maybe Action
action) (\s :: APNSMessage
s@APNSMessage' {} Maybe Action
a -> APNSMessage
s {$sel:action:APNSMessage' :: Maybe Action
action = Maybe Action
a} :: APNSMessage)
aPNSMessage_badge :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Int)
aPNSMessage_badge :: Lens' APNSMessage (Maybe Int)
aPNSMessage_badge = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Int
badge :: Maybe Int
$sel:badge:APNSMessage' :: APNSMessage -> Maybe Int
badge} -> Maybe Int
badge) (\s :: APNSMessage
s@APNSMessage' {} Maybe Int
a -> APNSMessage
s {$sel:badge:APNSMessage' :: Maybe Int
badge = Maybe Int
a} :: APNSMessage)
aPNSMessage_body :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_body :: Lens' APNSMessage (Maybe Text)
aPNSMessage_body = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
body :: Maybe Text
$sel:body:APNSMessage' :: APNSMessage -> Maybe Text
body} -> Maybe Text
body) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:body:APNSMessage' :: Maybe Text
body = Maybe Text
a} :: APNSMessage)
aPNSMessage_category :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_category :: Lens' APNSMessage (Maybe Text)
aPNSMessage_category = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
category :: Maybe Text
$sel:category:APNSMessage' :: APNSMessage -> Maybe Text
category} -> Maybe Text
category) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:category:APNSMessage' :: Maybe Text
category = Maybe Text
a} :: APNSMessage)
aPNSMessage_collapseId :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_collapseId :: Lens' APNSMessage (Maybe Text)
aPNSMessage_collapseId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
collapseId :: Maybe Text
$sel:collapseId:APNSMessage' :: APNSMessage -> Maybe Text
collapseId} -> Maybe Text
collapseId) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:collapseId:APNSMessage' :: Maybe Text
collapseId = Maybe Text
a} :: APNSMessage)
aPNSMessage_data :: Lens.Lens' APNSMessage (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
aPNSMessage_data :: Lens' APNSMessage (Maybe (HashMap Text Text))
aPNSMessage_data = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe (HashMap Text Text)
data' :: Maybe (HashMap Text Text)
$sel:data':APNSMessage' :: APNSMessage -> Maybe (HashMap Text Text)
data'} -> Maybe (HashMap Text Text)
data') (\s :: APNSMessage
s@APNSMessage' {} Maybe (HashMap Text Text)
a -> APNSMessage
s {$sel:data':APNSMessage' :: Maybe (HashMap Text Text)
data' = Maybe (HashMap Text Text)
a} :: APNSMessage) 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
aPNSMessage_mediaUrl :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_mediaUrl :: Lens' APNSMessage (Maybe Text)
aPNSMessage_mediaUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
mediaUrl :: Maybe Text
$sel:mediaUrl:APNSMessage' :: APNSMessage -> Maybe Text
mediaUrl} -> Maybe Text
mediaUrl) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:mediaUrl:APNSMessage' :: Maybe Text
mediaUrl = Maybe Text
a} :: APNSMessage)
aPNSMessage_preferredAuthenticationMethod :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_preferredAuthenticationMethod :: Lens' APNSMessage (Maybe Text)
aPNSMessage_preferredAuthenticationMethod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
preferredAuthenticationMethod :: Maybe Text
$sel:preferredAuthenticationMethod:APNSMessage' :: APNSMessage -> Maybe Text
preferredAuthenticationMethod} -> Maybe Text
preferredAuthenticationMethod) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:preferredAuthenticationMethod:APNSMessage' :: Maybe Text
preferredAuthenticationMethod = Maybe Text
a} :: APNSMessage)
aPNSMessage_priority :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_priority :: Lens' APNSMessage (Maybe Text)
aPNSMessage_priority = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
priority :: Maybe Text
$sel:priority:APNSMessage' :: APNSMessage -> Maybe Text
priority} -> Maybe Text
priority) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:priority:APNSMessage' :: Maybe Text
priority = Maybe Text
a} :: APNSMessage)
aPNSMessage_rawContent :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_rawContent :: Lens' APNSMessage (Maybe Text)
aPNSMessage_rawContent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
rawContent :: Maybe Text
$sel:rawContent:APNSMessage' :: APNSMessage -> Maybe Text
rawContent} -> Maybe Text
rawContent) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:rawContent:APNSMessage' :: Maybe Text
rawContent = Maybe Text
a} :: APNSMessage)
aPNSMessage_silentPush :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Bool)
aPNSMessage_silentPush :: Lens' APNSMessage (Maybe Bool)
aPNSMessage_silentPush = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Bool
silentPush :: Maybe Bool
$sel:silentPush:APNSMessage' :: APNSMessage -> Maybe Bool
silentPush} -> Maybe Bool
silentPush) (\s :: APNSMessage
s@APNSMessage' {} Maybe Bool
a -> APNSMessage
s {$sel:silentPush:APNSMessage' :: Maybe Bool
silentPush = Maybe Bool
a} :: APNSMessage)
aPNSMessage_sound :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_sound :: Lens' APNSMessage (Maybe Text)
aPNSMessage_sound = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
sound :: Maybe Text
$sel:sound:APNSMessage' :: APNSMessage -> Maybe Text
sound} -> Maybe Text
sound) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:sound:APNSMessage' :: Maybe Text
sound = Maybe Text
a} :: APNSMessage)
aPNSMessage_substitutions :: Lens.Lens' APNSMessage (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))
aPNSMessage_substitutions :: Lens' APNSMessage (Maybe (HashMap Text [Text]))
aPNSMessage_substitutions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe (HashMap Text [Text])
substitutions :: Maybe (HashMap Text [Text])
$sel:substitutions:APNSMessage' :: APNSMessage -> Maybe (HashMap Text [Text])
substitutions} -> Maybe (HashMap Text [Text])
substitutions) (\s :: APNSMessage
s@APNSMessage' {} Maybe (HashMap Text [Text])
a -> APNSMessage
s {$sel:substitutions:APNSMessage' :: Maybe (HashMap Text [Text])
substitutions = Maybe (HashMap Text [Text])
a} :: APNSMessage) 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
aPNSMessage_threadId :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_threadId :: Lens' APNSMessage (Maybe Text)
aPNSMessage_threadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
threadId :: Maybe Text
$sel:threadId:APNSMessage' :: APNSMessage -> Maybe Text
threadId} -> Maybe Text
threadId) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:threadId:APNSMessage' :: Maybe Text
threadId = Maybe Text
a} :: APNSMessage)
aPNSMessage_timeToLive :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Int)
aPNSMessage_timeToLive :: Lens' APNSMessage (Maybe Int)
aPNSMessage_timeToLive = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Int
timeToLive :: Maybe Int
$sel:timeToLive:APNSMessage' :: APNSMessage -> Maybe Int
timeToLive} -> Maybe Int
timeToLive) (\s :: APNSMessage
s@APNSMessage' {} Maybe Int
a -> APNSMessage
s {$sel:timeToLive:APNSMessage' :: Maybe Int
timeToLive = Maybe Int
a} :: APNSMessage)
aPNSMessage_title :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_title :: Lens' APNSMessage (Maybe Text)
aPNSMessage_title = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
title :: Maybe Text
$sel:title:APNSMessage' :: APNSMessage -> Maybe Text
title} -> Maybe Text
title) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:title:APNSMessage' :: Maybe Text
title = Maybe Text
a} :: APNSMessage)
aPNSMessage_url :: Lens.Lens' APNSMessage (Prelude.Maybe Prelude.Text)
aPNSMessage_url :: Lens' APNSMessage (Maybe Text)
aPNSMessage_url = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\APNSMessage' {Maybe Text
url :: Maybe Text
$sel:url:APNSMessage' :: APNSMessage -> Maybe Text
url} -> Maybe Text
url) (\s :: APNSMessage
s@APNSMessage' {} Maybe Text
a -> APNSMessage
s {$sel:url:APNSMessage' :: Maybe Text
url = Maybe Text
a} :: APNSMessage)
instance Prelude.Hashable APNSMessage where
hashWithSalt :: Int -> APNSMessage -> Int
hashWithSalt Int
_salt APNSMessage' {Maybe Bool
Maybe Int
Maybe Text
Maybe (HashMap Text [Text])
Maybe (HashMap Text Text)
Maybe Action
url :: Maybe Text
title :: Maybe Text
timeToLive :: Maybe Int
threadId :: Maybe Text
substitutions :: Maybe (HashMap Text [Text])
sound :: Maybe Text
silentPush :: Maybe Bool
rawContent :: Maybe Text
priority :: Maybe Text
preferredAuthenticationMethod :: Maybe Text
mediaUrl :: Maybe Text
data' :: Maybe (HashMap Text Text)
collapseId :: Maybe Text
category :: Maybe Text
body :: Maybe Text
badge :: Maybe Int
action :: Maybe Action
aPNSPushType :: Maybe Text
$sel:url:APNSMessage' :: APNSMessage -> Maybe Text
$sel:title:APNSMessage' :: APNSMessage -> Maybe Text
$sel:timeToLive:APNSMessage' :: APNSMessage -> Maybe Int
$sel:threadId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:substitutions:APNSMessage' :: APNSMessage -> Maybe (HashMap Text [Text])
$sel:sound:APNSMessage' :: APNSMessage -> Maybe Text
$sel:silentPush:APNSMessage' :: APNSMessage -> Maybe Bool
$sel:rawContent:APNSMessage' :: APNSMessage -> Maybe Text
$sel:priority:APNSMessage' :: APNSMessage -> Maybe Text
$sel:preferredAuthenticationMethod:APNSMessage' :: APNSMessage -> Maybe Text
$sel:mediaUrl:APNSMessage' :: APNSMessage -> Maybe Text
$sel:data':APNSMessage' :: APNSMessage -> Maybe (HashMap Text Text)
$sel:collapseId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:category:APNSMessage' :: APNSMessage -> Maybe Text
$sel:body:APNSMessage' :: APNSMessage -> Maybe Text
$sel:badge:APNSMessage' :: APNSMessage -> Maybe Int
$sel:action:APNSMessage' :: APNSMessage -> Maybe Action
$sel:aPNSPushType:APNSMessage' :: APNSMessage -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
aPNSPushType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Action
action
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
badge
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
body
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
category
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
collapseId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
data'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
mediaUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredAuthenticationMethod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
priority
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
rawContent
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
silentPush
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sound
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text [Text])
substitutions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
threadId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
timeToLive
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
title
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
url
instance Prelude.NFData APNSMessage where
rnf :: APNSMessage -> ()
rnf APNSMessage' {Maybe Bool
Maybe Int
Maybe Text
Maybe (HashMap Text [Text])
Maybe (HashMap Text Text)
Maybe Action
url :: Maybe Text
title :: Maybe Text
timeToLive :: Maybe Int
threadId :: Maybe Text
substitutions :: Maybe (HashMap Text [Text])
sound :: Maybe Text
silentPush :: Maybe Bool
rawContent :: Maybe Text
priority :: Maybe Text
preferredAuthenticationMethod :: Maybe Text
mediaUrl :: Maybe Text
data' :: Maybe (HashMap Text Text)
collapseId :: Maybe Text
category :: Maybe Text
body :: Maybe Text
badge :: Maybe Int
action :: Maybe Action
aPNSPushType :: Maybe Text
$sel:url:APNSMessage' :: APNSMessage -> Maybe Text
$sel:title:APNSMessage' :: APNSMessage -> Maybe Text
$sel:timeToLive:APNSMessage' :: APNSMessage -> Maybe Int
$sel:threadId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:substitutions:APNSMessage' :: APNSMessage -> Maybe (HashMap Text [Text])
$sel:sound:APNSMessage' :: APNSMessage -> Maybe Text
$sel:silentPush:APNSMessage' :: APNSMessage -> Maybe Bool
$sel:rawContent:APNSMessage' :: APNSMessage -> Maybe Text
$sel:priority:APNSMessage' :: APNSMessage -> Maybe Text
$sel:preferredAuthenticationMethod:APNSMessage' :: APNSMessage -> Maybe Text
$sel:mediaUrl:APNSMessage' :: APNSMessage -> Maybe Text
$sel:data':APNSMessage' :: APNSMessage -> Maybe (HashMap Text Text)
$sel:collapseId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:category:APNSMessage' :: APNSMessage -> Maybe Text
$sel:body:APNSMessage' :: APNSMessage -> Maybe Text
$sel:badge:APNSMessage' :: APNSMessage -> Maybe Int
$sel:action:APNSMessage' :: APNSMessage -> Maybe Action
$sel:aPNSPushType:APNSMessage' :: APNSMessage -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
aPNSPushType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Action
action
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
badge
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
body
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
category
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
collapseId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
data'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mediaUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
preferredAuthenticationMethod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
priority
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
rawContent
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
silentPush
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sound
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text [Text])
substitutions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
threadId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
timeToLive
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
title
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
url
instance Data.ToJSON APNSMessage where
toJSON :: APNSMessage -> Value
toJSON APNSMessage' {Maybe Bool
Maybe Int
Maybe Text
Maybe (HashMap Text [Text])
Maybe (HashMap Text Text)
Maybe Action
url :: Maybe Text
title :: Maybe Text
timeToLive :: Maybe Int
threadId :: Maybe Text
substitutions :: Maybe (HashMap Text [Text])
sound :: Maybe Text
silentPush :: Maybe Bool
rawContent :: Maybe Text
priority :: Maybe Text
preferredAuthenticationMethod :: Maybe Text
mediaUrl :: Maybe Text
data' :: Maybe (HashMap Text Text)
collapseId :: Maybe Text
category :: Maybe Text
body :: Maybe Text
badge :: Maybe Int
action :: Maybe Action
aPNSPushType :: Maybe Text
$sel:url:APNSMessage' :: APNSMessage -> Maybe Text
$sel:title:APNSMessage' :: APNSMessage -> Maybe Text
$sel:timeToLive:APNSMessage' :: APNSMessage -> Maybe Int
$sel:threadId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:substitutions:APNSMessage' :: APNSMessage -> Maybe (HashMap Text [Text])
$sel:sound:APNSMessage' :: APNSMessage -> Maybe Text
$sel:silentPush:APNSMessage' :: APNSMessage -> Maybe Bool
$sel:rawContent:APNSMessage' :: APNSMessage -> Maybe Text
$sel:priority:APNSMessage' :: APNSMessage -> Maybe Text
$sel:preferredAuthenticationMethod:APNSMessage' :: APNSMessage -> Maybe Text
$sel:mediaUrl:APNSMessage' :: APNSMessage -> Maybe Text
$sel:data':APNSMessage' :: APNSMessage -> Maybe (HashMap Text Text)
$sel:collapseId:APNSMessage' :: APNSMessage -> Maybe Text
$sel:category:APNSMessage' :: APNSMessage -> Maybe Text
$sel:body:APNSMessage' :: APNSMessage -> Maybe Text
$sel:badge:APNSMessage' :: APNSMessage -> Maybe Int
$sel:action:APNSMessage' :: APNSMessage -> Maybe Action
$sel:aPNSPushType:APNSMessage' :: APNSMessage -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"APNSPushType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
aPNSPushType,
(Key
"Action" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Action
action,
(Key
"Badge" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
badge,
(Key
"Body" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
body,
(Key
"Category" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
category,
(Key
"CollapseId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
collapseId,
(Key
"Data" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
data',
(Key
"MediaUrl" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
mediaUrl,
(Key
"PreferredAuthenticationMethod" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
preferredAuthenticationMethod,
(Key
"Priority" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
priority,
(Key
"RawContent" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
rawContent,
(Key
"SilentPush" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
silentPush,
(Key
"Sound" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
sound,
(Key
"Substitutions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text [Text])
substitutions,
(Key
"ThreadId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
threadId,
(Key
"TimeToLive" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
timeToLive,
(Key
"Title" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
title,
(Key
"Url" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
url
]
)