diff options
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 |