From 5c84a05e68f003e8bb1c1d9c86fb1ad72d80951a Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@zancanaro.id.au>
Date: Mon, 19 May 2014 11:33:30 +1000
Subject: Fix the tests

---
 src/abra/core.clj | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/abra/core.clj b/src/abra/core.clj
index 19e4990..109b026 100644
--- a/src/abra/core.clj
+++ b/src/abra/core.clj
@@ -130,7 +130,9 @@
   (let [spec (*lookup-route* [route arg-values])
         {:keys [uri type args]} spec
         root-path *root*
-        prefix (if *request*
+        prefix (if (and *request*
+                        (:scheme *request*)
+                        (get-in *request* [:headers "host"]))
                  (str (name (:scheme *request*)) "://"
                       (get-in *request* [:headers "host"])))]
     (if spec
-- 
cgit v1.2.3