AP
Size: a a a
AP
λO
AK
l
l
at
l
λO
l
l
MP
MK
MK
MK
AP
AK
main должен выглядеть. Единственное, что смог придумать, что-то такое — и всё равно ошибки:data Event = EventOne | EventTwo
data Listener e = (Event -> Eff ( ... | e ) Unit)
type Model = Int
update :: forall e. Event -> Model -> Smolder.Markup e
update evt model =
H.div $ H.text $ "Test" <> show model
render :: forall e. Model -> Smolder.Markup (Listener e)
render model =
H.div #! on "click" (\_ -> update EventOne model) $ H.text "test"
main = ... render someElement model
AK
AK
AP