bird-0.0.1: src/Bird/Reply.hs

module Bird.Reply where

import qualified Data.Map as Hash
import Data.ByteString.Lazy.Char8 (pack)
import Hack
import Data.Default

data Reply = 
  Reply {
    replyStatus   :: Int,
    replyHeaders  :: Hash.Map String String,
    replyBody     :: String,
    replyMime     :: String
  } deriving (Show)

instance Default Reply where
  def = Reply { replyMime = "text/html", replyBody = "", replyStatus = 200, replyHeaders = Hash.empty }

replyToResponse :: Reply -> Response
replyToResponse r = 
  Response {
    status = replyStatus r,
    headers = [("Content-Type", replyMime r)] ++ (Hash.toList $ replyHeaders r),
    body = pack $ replyBody r
  }