[github/fretlink/blazeT.git] / src / Readme.hs

{-# LANGUAGE OverloadedStrings #-}

import Data.Time (getCurrentTime)
import Text.BlazeT.Html5 hiding (main)
import Text.BlazeT.Renderer.String
import Control.Monad.Trans.Class (lift)

-- Backwords compatible Blaze HTML
old :: Markup
old = do
  p $ "created with blaze-html"

-- BlazeT HTML with lifted IO actions
new :: MarkupT IO ()
new = do
  time <- lift getCurrentTime
  p $ string $ "created with blazeT at " ++ show time

main :: IO ()
main = do
  putStrLn $            renderMarkup old
  putStrLn =<< execWith renderMarkup new
Commit	Line	Data
95eb4d6a JG	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