diff options
| author | Carlo Zancanaro <carlo@zancanaro.id.au> | 2014-05-19 11:33:30 +1000 |
|---|---|---|
| committer | Carlo Zancanaro <carlo@zancanaro.id.au> | 2014-05-19 11:33:30 +1000 |
| commit | 5c84a05e68f003e8bb1c1d9c86fb1ad72d80951a (patch) | |
| tree | e8d338a3a2b2f79aedf4384be2cd660817978c35 /src | |
| parent | 92ce6a23354422ba0a87d2d64548b83e0da8737b (diff) | |
Fix the tests
Diffstat (limited to 'src')
| -rw-r--r-- | src/abra/core.clj | 4 |
1 files changed, 3 insertions, 1 deletions
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 |