Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
view : Signal.Address Action -> Model -> Html
view address model =
let
todos = List.map (viewTodos address) model.todos
add = button [onClick address Add ] [ text "Add" ]
addText = textarea [textareaStyle] [ text "" ]
in
div [ todosStyle ]
[ add
, addText
, div [] (todos)
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment