purescript-httpurple/src/HTTPure/Headers.purs

module HTTPure.Headers
  ( Headers
  , lookup
  , write
  ) where

import Prelude

import Control.Monad.Eff as Eff
import Data.Maybe as Maybe
import Data.String as StringUtil
import Data.StrMap as StrMap
import Data.Traversable as Traversable
import Node.HTTP as HTTP

-- | The Headers type is just sugar for a StrMap of Strings that represents the
-- | set of headers sent or received in an HTTP request or response.
type Headers = StrMap.StrMap String

-- | Return the value of the given header.
lookup :: Headers -> String -> String
lookup headers =
  Maybe.fromMaybe "" <<< flip StrMap.lookup headers <<< StringUtil.toLower

-- | Write a set of headers to the given HTTP Response.
write :: forall e.
         HTTP.Response ->
         Headers ->
         Eff.Eff (http :: HTTP.HTTP | e) Unit
write response headers =
  void $ Traversable.traverse writeHeader $ StrMap.keys headers
  where
    getHeader header = Maybe.fromMaybe "" $ StrMap.lookup header headers
    writeHeader header = HTTP.setHeader response header $ getHeader header