Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
view : Signal.Address Action -> Model -> Html
view address model =
let insert = button [ onClick address Insert ] [ text "Add" ]
div [] (insert :: (viewCounter address) model.counters)
viewCounter : Signal.Address Action -> (ID, Counter.Model) -> Html
viewCounter address (id, model) =
let context =
(Signal.forwardTo address (Modify id))
(Signal.forwardTo address (always (Remove id)))
Counter.viewWithRemoveButton context model
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment