blob: 3ccabad015babc35684083d356400e9d2af962f1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{-# 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
|
