module Main where

import Prelude
import Effect (Effect)

import Concur.Core (Widget)
import Concur.React (HTML)
import Concur.React.DOM as D
import Concur.React.Props as P
import Concur.React.Run (runWidgetInDom)

counterWidget :: forall a. Int -> Widget HTML a
counterWidget count = do
  n <- D.div'
        [ D.p' [D.text ("State: " <> show count)]
        , D.button [P.onClick] [D.text "Increment"] $> count+1
        , D.button [P.onClick] [D.text "Decrement"] $> count-1
        ]
  counterWidget n

main :: Effect Unit
main = runWidgetInDom "main" (counterWidget 0)