       (ko/where {:email [in emails]}))))
 
 
+(defn update-intercom-user
+  [params]
+  (->>
+    params
+    (ch/generate-string)
+    (assoc intercom-http-params :body)
+    (client/post "https://api.intercom.io/users")))
+
+
 (defn -main
   []
   (let [db-spec      (poll/heroku-db-spec (env/env :database-url))

            [polismath.poller :as poll]))


(defn get-intercom-users
  "Get the list of users from intercom (don't want to create intercom users for users that haven't
  actually signed up"

  (let [return-data
          (->
            (or page "https://api.intercom.io/users")
            (client/get intercom-http-params)
            :body
            (ch/parse-string)
            (->>
