gistfile1.clj

(defn synchronise-folders [{:keys [user] :as opts}]
  (let [result-chan (chan)
        owner-id (:id user)]
    (go (log/log "request about to be sent")
        (logic/dispatch-event [:api :folders :get] {:params {:owner owner-id} :result-chan result-chan})
        (let [result (<! result-chan)]
          (log/log "result came back:" result)
          (match result
                 [:success {:list folders}] (update-db-entities (map prepare-folder folders))
                 [:error new-errors] nil)))))