Skip to content

Instantly share code, notes, and snippets.

@lewang
Created October 17, 2016 20:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lewang/d8e852c4ca9deb89892f7d1c36c14e75 to your computer and use it in GitHub Desktop.
Save lewang/d8e852c4ca9deb89892f7d1c36c14e75 to your computer and use it in GitHub Desktop.
diff -u /Users/lewang/.emacs_common/backup/\!Users\!lewang\!src\!circleci\!circle\!src\!circle\!scratchwork.clj.\~3\~ /Users/lewang/.emacs_common/backup/\!Users\!lewang\!src\!circleci\!circle\!src\!circle\!scratchwork.clj.\~2\~
--- /Users/lewang/.emacs_common/backup/!Users!lewang!src!circleci!circle!src!circle!scratchwork.clj.~3~ 2016-10-17 13:55:38.000000000 -0400
+++ /Users/lewang/.emacs_common/backup/!Users!lewang!src!circleci!circle!src!circle!scratchwork.clj.~2~ 2016-10-17 13:20:47.000000000 -0400
@@ -2,8 +2,7 @@
(:require [clj-time.core :as time]
[clj-yaml.core :as yaml]
[clojure.edn :as edn]
- [circle.model.build :as circ.m.build]
- [circle.util.mongo :as mongo-util]))
+ [circle.model.build :as circ.m.build]))
(defn shouldnt-have-built?
[{:keys [config-str branch config-bad-str] :as build-inst}]
@@ -40,7 +39,8 @@
(defn get-related-build-cursor
[gt-date]
(circ.m.build/where
- {:_id {:$gt (mongo-util/timestamp->id gt-date)}}
+ {:stop_time {:$gt gt-date}
+ :config-str {:$ne nil}}
:only [:_id :config-str :config-bad-str :status :owners :branch :stop_time]
:limit 10
:read-preferences :secondary-preferred))
Diff finished. Mon Oct 17 16:14:02 2016
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment