http-interchange-0.3.0.0: src/Http/Bodied.hs

module Http.Bodied
  ( Bodied(..)
  ) where

import Data.Bytes.Chunks (Chunks)

-- | An HTTP request or response with a body.
data Bodied a = Bodied
  { metadata :: !a
    -- ^ The request or response.
  , body :: !Chunks
    -- ^ The body.
  } deriving (Show,Eq)