14 lines
360 B
Haskell
14 lines
360 B
Haskell
|
{-# LANGUAGE PolyKinds #-}
|
||
|
module Servant.API.Header where
|
||
|
|
||
|
-- | Extract the given header's value as a value of type @a@.
|
||
|
--
|
||
|
-- Example:
|
||
|
--
|
||
|
-- > newtype Referer = Referer Text
|
||
|
-- > deriving (Eq, Show, FromText, ToText)
|
||
|
-- >
|
||
|
-- > -- GET /view-my-referer
|
||
|
-- > type MyApi = "view-my-referer" :> Header "from" Referer :> Get Referer
|
||
|
data Header sym a
|