 
 
 (defmethod navigated-to :dashboard
-  [history-imp to args state]
+  [history-imp navigation-point args state]
   (-> state
       (assoc :navigation-point :dashboard
              :navigation-data (select-keys args [:branch :repo :org]))



(defmethod navigated-to :project-settings
  [history-imp to {:keys [project-name subpage org repo]} state]
  (-> state
      (assoc :navigation-point :project-settings)
      (assoc :navigation-data {}) ;; XXX: maybe put subpage info here?

      state-utils/reset-current-build))

(defmethod post-navigated-to! :dashboard
  [history-imp navigation-point args previous-state current-state]
  (let [api-ch (get-in current-state [:comms :api])
        dashboard-data (:navigation-data current-state)]
    (api/get-projects api-ch)
