Update checkouts path creation

timvisher · Apr 21, 2016 · 2700f5b · 2700f5b
1 parent 513d1db
commit 2700f5b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/leiningen/checkout/rm.clj b/src/leiningen/checkout/rm.clj
@@ -23,7 +23,7 @@
 (defn rm
   "[pattern]: Remove all checkouts. If PATTERN is specified, only checkouts matching that pattern will be removed"
   [{:keys [checkout root] :as project} & [pattern]]
-  (let [current-checkouts (fs/list-dir (str root File/separator "checkouts"))
+  (let [current-checkouts (fs/list-dir (fs/file root "checkouts"))
         candidate-pattern (if pattern (re-pattern (str ".*" pattern ".*")) #".*")
         candidate-matcher (partial re-matches candidate-pattern)
         matching-checkouts (filter candidate-matcher current-checkouts)]