Concur counter

Main.purs

module Main where

import Prelude

import Effect (Effect)
import Effect.Class (liftEffect)
import Effect.Console (log)
import Concur.Core (Widget)
import Concur.React (HTML)
import Concur.React.DOM (div_, h2_, hr', text, div', p', button) as D
import Concur.React.Props as P
import Concur.React.Run (runWidgetInDom)
import Control.Alt ((<|>))
import Control.MultiAlternative (orr)

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
        ]
  liftEffect (log ("COUNT IS NOW: " <> show n))
  counterWidget n
  
main :: Effect Unit
main = do
    runWidgetInDom "main" $ orr
      [ widget (counterWidget 0 <|> counterWidget 100) "Counter"
      ]
  where
    widget w s = orr
      [ D.hr'
      , D.h2_ [] $ D.text s
      , D.div_ [] w
      ]