3 ms·
This is a closer comparison. mkCounter :: String -> (Int -> Int) -> Effect (ReactComponent {}) mkCounter label op = do component "Counter" \props
by lalaithion 6y ago
This is a closer comparison.
mkCounter :: String -> (Int -> Int) -> Effect (ReactComponent {})
mkCounter label op = do
component "Counter" \props -> React.do
counter /\ setCounter <- useState 0
pure
$ R.button
{ onClick: handler_ do
setCounter op
, children:
[ R.text $ label <> ": " <> show counter ]
}
now you can call
mkCounter "Increment" (_ + 1)