[Haskell-beginners] Getting warp and blaze to like each other

9 Jul 2013

      Hi All,

I just cobbled together the code below from a couple of samples, but got
the types matched up by trial and error. I don't really understand when
things are getting converted between lazy, strict, utf8, ascii, etc. I
don't want ascii in the served page at all. Is it optimal?

TIA,
Adrian

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Network.Wai (Application, Response (ResponseBuilder))
import Network.HTTP.Types (status200)
import Network.HTTP.Types.Header (hContentType, hContentLength,
hConnection)
import Network.Wai.Handler.Warp (run)
import Blaze.ByteString.Builder (fromByteString, fromLazyByteString)
import qualified Data.ByteString.Char8 as BS (pack, length)

import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import Text.Blaze.Html.Renderer.Utf8

import qualified Data.ByteString.Lazy as LB

application:: Application
application _ = return $
    ResponseBuilder status200 [(hContentType, BS.pack "text/html"),
                               (hContentLength, BS.pack bodyLen),
                               (hConnection, BS.pack "keep-alive")]
                    $ fromLazyByteString body
    where body = root
          bodyLen = show. LB.length $ body

root = renderHtml rooth

rooth :: H.Html
rooth = H.docTypeHtml $ do
    H.body $ do
        H.h1 "Hello"

main:: IO ()
main = run 8080 application

[Haskell-beginners] Getting warp and blaze to like each other

Adrian May