mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
21 lines
366 B
Haskell
21 lines
366 B
Haskell
module Hasura.Server.Context
|
|
( HttpResponse(..)
|
|
, Header (..)
|
|
, Headers
|
|
)
|
|
where
|
|
|
|
import Hasura.Prelude
|
|
|
|
newtype Header
|
|
= Header { unHeader :: (Text, Text) }
|
|
deriving (Show, Eq)
|
|
|
|
type Headers = [Header]
|
|
|
|
data HttpResponse a
|
|
= HttpResponse
|
|
{ _hrBody :: !a
|
|
, _hrHeaders :: !(Maybe Headers)
|
|
} deriving (Functor, Foldable, Traversable)
|