Couldn't this be just `(process-todo-message state (assoc event msg/type :delete-todo))`