todolist-new-view.elm

view : Signal.Address Action -> Model -> Html
view address model =
  let
      todos = List.map viewTodos model.todos
  in
    div [ todosStyle ]
      [ input
          [ placeholder "enter todo"
          , value model.addText
          , on "input" targetValue ( Signal.message address << InputText)
          ]
          []
      , button
          [ onClick address Add ]
          [ text "Add" ]
      , div
          [] (todos)
      ]

viewTodos : (ID, Todo.Model) -> Html
viewTodos (id, model) =
  Todo.view model