import Elmish.HTML as R

view :: State -> DispatchMsgFn Message -> ReactElement
view state dispatch =
    R.div {}
    [ R.h1 {} "Counter"
    , R.text ("Count: " <> show state.count)
    , R.br {}
    , R.button { type: "button", onClick: handle dispatch Inc } "Inc"
    , R.button { type: "button", onClick: handle dispatch Dec } "Dec"
    ]