diff options
| author | Gabriel A. Giovanini <mail@gabrielgio.me> | 2018-02-21 22:41:20 -0300 |
|---|---|---|
| committer | Gabriel A. Giovanini <mail@gabrielgio.me> | 2018-02-21 22:41:20 -0300 |
| commit | 0b8277f72cdc2ed2abeb566f30958bd8e0dc5167 (patch) | |
| tree | b4d26fa45fde855ccbc81ffd0af893c88aaba869 /src/clj/queue_api/db | |
| parent | e05e7911084e3f23897d6d5b299d7f84494d618e (diff) | |
| download | queue-api-0b8277f72cdc2ed2abeb566f30958bd8e0dc5167.tar.gz queue-api-0b8277f72cdc2ed2abeb566f30958bd8e0dc5167.tar.bz2 queue-api-0b8277f72cdc2ed2abeb566f30958bd8e0dc5167.zip | |
Readme and validation
Diffstat (limited to 'src/clj/queue_api/db')
| -rw-r--r-- | src/clj/queue_api/db/core.clj | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/clj/queue_api/db/core.clj b/src/clj/queue_api/db/core.clj index c76f0fb..0482feb 100644 --- a/src/clj/queue_api/db/core.clj +++ b/src/clj/queue_api/db/core.clj @@ -102,7 +102,12 @@ (if (seq jn) (first jn)))))) -(defn request-job +(defn agent + "Get a agent by id" + [id] + (d/entity @conn [:agent/id id])) + +(defn fittest-job "Get the fittest job for a agent `id`." [^String id] (let [a (d/entity @conn [:agent/id id])] @@ -146,7 +151,7 @@ [^String id] (let [a (d/entity @conn [:agent/id id])] (if-not (nil? a) - (let [jid (:job/id (request-job id))] + (let [jid (:job/id (fittest-job id))] (end-job a) (start-job id jid) jid))))
\ No newline at end of file |