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"