moe-2009.8.26: src/test.hs

import Prelude hiding ((/), (-), head, (>), (.), div)
import MPS.Light ((-))
import Text.HTML.Moe

test_page :: String
test_page = render -
  html' - do
    head' - do
      meta
        [http_equiv "Content-Type", content "text/html; charset-utf-8"] (/)
      title' - str "my title"
      link [rel "icon", _type "image/png", href "panda_icon.png"] (/)
  
    body' - do
      div [_class "container"] - do
        str "hello world"

main :: IO ()
main = putStrLn test_page