module Patrol.Constant where

import qualified Data.ByteString as ByteString
import qualified Data.CaseInsensitive as CI
import qualified Data.Text as Text
import qualified Data.Text.Encoding as Text
import qualified Network.HTTP.Types as Http
import qualified Patrol.Version as Version

applicationJson :: ByteString.ByteString
applicationJson :: ByteString
applicationJson = Text -> ByteString
Text.encodeUtf8 forall a b. (a -> b) -> a -> b
$ String -> Text
Text.pack String
"application/json"

sentryVersion :: Text.Text
sentryVersion :: Text
sentryVersion = Char -> Text
Text.singleton Char
'7'

userAgent :: Text.Text
userAgent :: Text
userAgent = String -> Text
Text.pack String
"patrol/" forall a. Semigroup a => a -> a -> a
<> Text
Version.text

xSentryAuth :: Http.HeaderName
xSentryAuth :: HeaderName
xSentryAuth = forall s. FoldCase s => s -> CI s
CI.mk forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> ByteString
Text.encodeUtf8 forall a b. (a -> b) -> a -> b
$ String -> Text
Text.pack String
"X-Sentry-Auth"