   (log/warn "Fetching user-ids" user-ids)
   (let [conn (:connection db)]
     (cql/select conn :github_user
+        (dbq/limit 100)
         (dbq/where [[:in :login user-ids]]))))
 
 (defn fetch-top-users

  (let [conn (:connection db)]
    ;; FIX THIS SHIT!@!@!@!
     (mapcat #(cql/select conn :github_project
            (dbq/where [[:= :id %]]))
      proj-list)))


  [db proj-list]
  (let [conn (:connection db)]
    (cql/select conn :github_project
      (dbq/limit 100)
      (dbq/where [[:in :full_name proj-list]]))))

(defn load-projects-by-int-id
