Skip to content

Commit

Permalink
This is a good example of the wrong KIND of thing coming back
Browse files Browse the repository at this point in the history
and it's wicked hard to see in the error message.
  • Loading branch information
jessitron committed Jan 17, 2015
1 parent 7f2bd08 commit ca03d37
Showing 1 changed file with 7 additions and 5 deletions.
12 changes: 7 additions & 5 deletions src/schema_mock/core.clj
Original file line number Diff line number Diff line change
Expand Up @@ -18,9 +18,11 @@
(defn calculate-conversions-since [start-date]
(let [end-date (time/minus (time/now) (time/hours 1))
orders (fetch-orders start-date end-date)]
(for [o orders]
(let [clicks (fetch-clicks (conversion-period-for o) (:when o) (:who o))]
(notice-conversions o clicks)))))
(concat
(for [o orders]
(let [clicks (fetch-clicks (conversion-period-for o) (:when o) (:who o))]
(notice-conversions o clicks))))))

(defn- notice-conversions [orders clicks]
[])
(defn- notice-conversions [order clicks]
;; dummy implementation: stupid-easiest way to green
[{:click (first clicks) :outcome order}])

0 comments on commit ca03d37

Please sign in to comment.