Move process-query-results to avoid compile error. Oops.

rnewman · Jul 13, 2009 · da50139 · da50139
1 parent 7cc662e
commit da50139
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/com/twinql/clojure/mql.clj b/src/com/twinql/clojure/mql.clj
@@ -16,19 +16,19 @@
   [m]
   (into {} (filter (fn [[k v]] ((complement nil?) v)) m)))
 
-(defn- process-multiple-query-results [res names]
+(defn- process-query-result [res]
   (when res
     (if (= "/api/status/ok" (:code res))
-      (map process-query-result
-           (vals (select-keys res (map keyword names))))
+      (:result res)
       (throw (new Exception
                   (str "Non-OK status from MQL query: "
                        (:status res)))))))
 
-(defn- process-query-result [res]
+(defn- process-multiple-query-results [res names]
   (when res
     (if (= "/api/status/ok" (:code res))
-      (:result res)
+      (map process-query-result
+           (vals (select-keys res (map keyword names))))
       (throw (new Exception
                   (str "Non-OK status from MQL query: "
                        (:status res)))))))