import Haste
import Haste.DOM

import Pages

main = do
    text1     <- newTextElem "top left "
    text2     <- newTextElem "top right "
    text3     <- newTextElem "bottom left "
    text4     <- newTextElem "bottom right "
    topRow    <- newElem "div"  -- Container for the top row
    bottomRow <- newElem "div"  -- Container for the top row
    row topRow [text1,text2]
    row bottomRow [text3,text4]
    column documentBody [topRow,bottomRow]