serversidecomponentwithactions.hs

serversidecomponentwithactions.hs

data Counter = Counter { value :: Int }
data CounterController = IncrementCounterAction

instance Component CounterController Counter where
    initialState = Counter { value = 0 }
    
    -- Should alos support lifecycle hooks
    componentWillMount = ...
    componentDidMount = ..
    componentWillUnmount = ...
    
    render Counter { value } = [hsx|Current: {value} <button onClick={dispatchAction IncrementCounterAction}>Plus One</button>|]
    
    action IncrementCounterAction = do
        setState (\Counter { value } -> Counter { value = value + 1 })        

-- How to mount this:

[hsx|
<h1>Counter</h1>
{component @Counter}
|]

Can't wait to this! :)

Looks like Elm server-side.