src/BackwardsCompatibilty.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 {-# LANGUAGE NoMonomorphismRestriction #-}
   3 {-# LANGUAGE RankNTypes #-}
   4 {-# LANGUAGE CPP #-}
   5
   6 import Text.Blaze.Html5.Attributes
   7 #if 1
   8 import Text.BlazeT
   9 import Text.BlazeT.Html5 hiding (main)
  10 import Text.BlazeT.Renderer.Utf8
  11 #else
  12 import Text.Blaze
  13 import Text.Blaze.Html5 hiding (main)
  14 import Text.Blaze.Renderer.Utf8
  15 #endif
  16
  17 main :: IO ()
  18 main = print $ renderMarkup $ do
  19   docType
  20   -- "some text" -- does not work
  21   html $ do text "some text" -- does not work
  22             br
  23   ("wow" :: Markup) -- overloaded strings
  24   text "asd" ! href "asd"
  25   string "string" ! href "asd"
  26   toMarkup ("more text" :: String)
  27   html "wow"
  28   html ! src "asd" $ br
  29