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)