mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-05-31 22:14:08 +00:00
Evgeny
f3408d9bb6
* explicit exports * more empty exports * add exports * reorder * use correct ControlProtocol type for xftp router --------- Co-authored-by: Evgeny @ SimpleX Chat <259188159+evgeny-simplex@users.noreply.github.com>
26 lines
676 B
Haskell
26 lines
676 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Simplex.Messaging.Notifications.Server.Push.APNS.Internal
|
|
( hApnsTopic,
|
|
hApnsPushType,
|
|
hApnsPriority,
|
|
apnsJSONOptions,
|
|
) where
|
|
|
|
import qualified Data.Aeson as J
|
|
import qualified Data.CaseInsensitive as CI
|
|
import Network.HTTP.Types (HeaderName)
|
|
import Simplex.Messaging.Parsers (defaultJSON)
|
|
|
|
hApnsTopic :: HeaderName
|
|
hApnsTopic = CI.mk "apns-topic"
|
|
|
|
hApnsPushType :: HeaderName
|
|
hApnsPushType = CI.mk "apns-push-type"
|
|
|
|
hApnsPriority :: HeaderName
|
|
hApnsPriority = CI.mk "apns-priority"
|
|
|
|
apnsJSONOptions :: J.Options
|
|
apnsJSONOptions = defaultJSON {J.sumEncoding = J.UntaggedValue, J.fieldLabelModifier = J.camelTo2 '-'}
|