gistfile1.hs

{-# LANGUAGE TypeSynonymInstances #-}
module Blaze (
      module Text.Blaze.Renderer.String    
    , module Text.Blaze
) where

import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.UTF8 as LU (toString, fromString)

import Text.Blaze
import Text.Blaze.Renderer.String

import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A 

import Happstack.Server.SimpleHTTP

instance ToMessage H.Html where
    toContentType _ = B.pack "text/html; charset=UTF-8"
    toMessage = LU.fromString . renderHtml