import Haste
import Haste.DOM
import Haste.Events

import Pages

main = do
    input  <- mkInput 30 "Type your answer here..."
    button <- mkButton "Submit answer"
    column documentBody [input,button]

    onEvent button Click $ \_ -> do
      set input [ prop "value" =: "You clicked!" ]