moe-2013.6.22: src/Main.hs

module Main where

import Prelude hiding ((/), (-), head, (>), (.), div)
import Air.Light ((-))
import Text.HTML.Moe2
import System.Nemesis.Titan

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 = do
  putStrLn test_page
  halt