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

    "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

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