todolist-new-action.elm

type Action = Add
            | InputText String

update : Action -> Model -> Model
update action model =
  case action of
    Add ->
      let newTodo = ( model.nextID, Todo.init model.nextID model.addText )
          newTodos = model.todos ++ [ newTodo ]
      in
          { model |
              todos = newTodos,
              nextID = model.nextID + 1,
              addText = ""
          }
    InputText str ->
      { model |
          addText = str
      }