Remove loading slash from asset-path

Asset-path might start with slash.
adzerk-oss · Jun 14, 2015 · e405e1e · e405e1e
1 parent c6bbab5
commit e405e1e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/adzerk/boot_reload/server.clj b/src/adzerk/boot_reload/server.clj
@@ -12,7 +12,7 @@
 (defn web-path [proto rel-path tgt-path asset-path]
   (if-not (= "file:" proto)
     (if asset-path
-      (string/replace rel-path (re-pattern (str "^" asset-path "/")) "")
+      (string/replace rel-path (re-pattern (str "^" (string/replace asset-path #"^/" "") "/")) "")
       (str "/" rel-path))
     (.getCanonicalPath (io/file tgt-path rel-path))))
 

diff --git a/test/adzerk/boot_reload/server_test.clj b/test/adzerk/boot_reload/server_test.clj
@@ -11,6 +11,9 @@
     (is (= "js/out/saapas/core.js"
            (web-path "http:" "public/js/out/saapas/core.js" nil "public")))
 
+    (is (= "js/out/saapas/core.js"
+           (web-path "http:" "public/js/out/saapas/core.js" nil "/public")))
+
     (is (= "public/js/out/saapas/core.js"
            (web-path "http:" "public/js/out/saapas/core.js" nil "foobar")))
     ))