assert that keys from enrichment process are present

src/clj/commiteth/bounties.clj

@@ -106,6 +106,11 @@
           (log/info "Updating changed title for issue" (:id gh-issue))
           (issues/update-issue-title (:id gh-issue) (:title gh-issue)))))))
 
+(defn assert-keys [m ks]
+  (doseq [k ks]
+    (when-not (find m k)
+      (throw (ex-info (format "Expected key missing from provided map: %s" k) {:map m})))))
+
 (defn bounty-state
   "Given a map as returned by `owner-bounties` return the state the provided bounty is in.
 
@@ -117,6 +122,8 @@
   - :pending-contributor-address
   - :pending-maintainer-confirmation"
   [bounty]
+  (assert-keys bounty [:winner_login :payout_address :confirm_hash :payout_hash
+                       :claims :tokens :contract_address])
   (if-let [merged? (:winner_login bounty)]
     (cond
       (nil? (:payout_address bounty)) :pending-contributor-address
@@ -124,10 +131,10 @@
       (:payout_hash bounty)           :paid
       :else                           :merged)
     (cond ; not yet merged
-      (some-> (:claim_count bounty) (< 1)) :multiple-claims
+      (< 1 (count (:claims bounty)))  :multiple-claims
-      (= 1 (:claim_count bounty))          :claimed
+      (= 1 (count (:claims bounty)))  :claimed
-      (seq (:tokens bounty))               :funded
+      (seq (:tokens bounty))          :funded
-      (:contract_address bounty)           :opened)))
+      (:contract_address bounty)      :opened)))
 
 (comment
   (def user 97496)