 
 (defn over-floor? [floor-price {res :response}]
   (if floor-price
-    (<= floor-price (:bidPrice res))
+    (<= (* 1000 floor-price) (:bidPrice res))
     true))
 
 (defn auction [floor-price resps]

  (let [{:keys [status body]} @res]
    {:dsp dsp :status status :body body}))

(defn validate [{dsp :dsp status :status body :body}]
  ;; TODO: validate id identity
  (try
   (let [body (and body (json/parse-string body true))

               (not body) {:status :invalid :reason "no body"}
               (not id) {:status :invalid :invalid "no bid id"}
               (not (instance? String id)) {:status :invalid :reason "id not string" :id id}
               (not (= id request-id)) {:status :invalid :reason "bid id differs from request-id" :id id :request-id request-id}
               (not bidPrice) {:status :invalid :reason "no bid price"}
               (not (instance? Double bidPrice)) {:status :invalid :reason "bidPrice not double" :bidPrice bidPrice}
               (not advertiserId) {:status :invalid :reason "no advertiser id"}
