Example for issue https://github.com/ajnsit/purescript-concur/issues/10

Concur.purs

module Main where

import Prelude

import Concur.Core (Widget)
import Concur.React (HTML)
import Concur.React.DOM (button, text) 
import Concur.React.Props (onClick)
import Concur.React.Run (runWidgetInDom)
import Effect (Effect)
import Effect.Class (liftEffect)
import Effect.Console (log)

example :: forall a. Int -> Widget HTML a
example x = do
  liftEffect (log $ "example" <> show x)
  _ <- button [onClick] [text $ "example" <> show x]
  example x

example' :: forall a. Int -> Widget HTML a
example' x = do
  _ <- button [onClick] [text $ "example" <> show x]
  liftEffect (log $ "example" <> show x)
  example' x

main :: Effect Unit
main = do
  runWidgetInDom "root" (example 1 <> example 2)
--  runWidgetInDom "root" (example' 1 <> example' 2)