 (defn reconcile
   [model action]
   (match action
-         ; do nothing, only for a demo
-         :sample-action model
-
          [:update-field val]
          (assoc model :field val)
 

   [:ul.filters
    (for [{:keys [key title href]} -visibility-spec]
      ^{:key key}
      [:li
       [:a
        {:href  href
         :class (if (= visibility key) "selected")}
        title]])]

   (if has-completed-todos?
     [:button.clear-completed {:on-click #(dispatch :on-clear-completed)} "Clear completed"])])

  [:section.todoapp
   [-view-header @field dispatch]

   (when @has-todos?
     [:div
      [-view-todo-list @todos @all-completed? dispatch]
      [-view-footer @active-count @has-completed-todos? @visibility dispatch]])])
