import Haste
import Haste.DOM
import Haste.Events

import Pages

main = do
    input  <- mkInput 30 ""
    output <- newElem "span"
    column documentBody [input,output]

    onEvent input KeyUp $ \_ -> do
      text <- getProp input "value"
      set output [ prop "innerHTML" =: text ]
    focus input