module Main where
import Control.Monad.Eff

foreign import render
  "function render () {\
  \ var C = React.createClass({render: function(){return React.createElement('h1', {}, this.state ? this.state.title : 'hello')}});\
  \ window.__c = React.render(React.createElement(C, {}), document.body);\
  \ }" :: forall eff. Eff eff Unit


type State = {title :: String}

foreign import update
  "function update (state) { return function(){\
  \ window.__c.setState(state);\
  \ }}" :: State -> forall eff. Eff eff Unit

main = do
  render
  update {title: "foo"}