Fix relative-path function. Closes #15

confetti-clj · Feb 24, 2017 · cfa41cb · cfa41cb
1 parent db6e756
commit cfa41cb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/confetti/s3_deploy.clj b/src/confetti/s3_deploy.clj
@@ -20,9 +20,8 @@
                (string? (:secret-key cred))) cred))
 
 (defn ^:private relative-path [dir f]
-  (string/replace (.getCanonicalPath f)
-                  (re-pattern (str (.getCanonicalPath dir) "/"))
-                  ""))
+  (.getPath
+   (.relativize (.toURI dir) (.toURI f))))
 
 (defn get-bucket-objects [cred bucket-name]
   (validate-creds! cred)