src/Readme.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 import Data.Time (getCurrentTime)
   4 import Text.BlazeT.Html5 hiding (main)
   5 import Text.BlazeT.Renderer.String
   6 import Control.Monad.Trans.Class (lift)
   7
   8 -- Backwords compatible Blaze HTML
   9 old :: Markup
  10 old = do
  11   p $ "created with blaze-html"
  12
  13 -- BlazeT HTML with lifted IO actions
  14 new :: MarkupT IO ()
  15 new = do
  16   time <- lift getCurrentTime
  17   p $ string $ "created with blazeT at " ++ show time
  18
  19 main :: IO ()
  20 main = do
  21   putStrLn $            renderMarkup old
  22   putStrLn =<< execWith renderMarkup new
  23