     "worker"
     (let [client (sqs-client)
           q (sqs-queue client "cu-builds")]
+      (println "Starting worker")
       (dorun
         (map (deleting-consumer client
                                 (runner/decide-whether-to

    "parser"
    (let [client (sqs-client)
          q (sqs-queue client "cu-pushes")]
      (dorun
        (map (deleting-consumer client (partial process-push-message client))
             (sqs/polling-receive client q

  (fn [message]
    (let [ret (f message)]
      (println "--------------------------------------")
      (println "Ran:" f)
      (println "Return value:" ret)
      (println "Deleting message:" message)
      (println (sqs/delete client message))
      ret)))
