From 71c60cd6e16047385adfef3272dc17d74b5bfbb9 Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@zancanaro.id.au>
Date: Sat, 15 Feb 2014 00:30:48 +1100
Subject: Change `with-url-fn` to use the result immediately as the route (not
 a map of details)

---
 src/abra/core.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/abra/core.clj b/src/abra/core.clj
index e6bc3fc..19d85cd 100644
--- a/src/abra/core.clj
+++ b/src/abra/core.clj
@@ -116,7 +116,7 @@
   "Test helper: run body using `f` as a url lookup in
   `core.abra/url-for`."
   [f & body]
-  `(binding [*lookup-route* (fn [x#] (apply ~f x#))
+  `(binding [*lookup-route* (fn [x#] {:type :get, :uri (apply ~f x#)})
              *root* ""]
      ~@body))
 
-- 
cgit v1.2.3