src/Servant/API/Header.hs · typeable/servant

git.iko.soy/typeable/servant

on 98e02ea help sign in

13 lines 360 B history raw

1{-# LANGUAGE PolyKinds #-}

2module Servant.API.Header where

4-- | Extract the given header's value as a value of type @a@.

5--

6-- Example:

7--

8-- > newtype Referer = Referer Text

9-- > deriving (Eq, Show, FromText, ToText)

10-- >

11-- > -- GET /view-my-referer

12-- > type MyApi = "view-my-referer" :> Header "from" Referer :> Get Referer

13data Header sym a