 
 (defonce memberships (atom {}))
 
+(defonce deploys (atom {}))
+
 (defn add-user [users {:keys [username email] :as user}]
   (-> users
       (update-in [username] merge user)


(defn add-user-membership [users {:keys [group-id username]}]
  (update-in users [username :groups] (fnil conj #{}) group-id))

(defn load-users [file]
  (with-open [r (io/reader file)]

  []
  (load-users (event-log-file :user))
  (load-memberships (event-log-file :membership)))
(defn load-deploys [file]
  (with-open [r (io/reader file)]
    (swap! users #(reduce add-deploy % (map read-string (line-seq r))))))

(defn seed
  "Seed event log with initial values from SQLite DB"
