From 2700f5b207fdf194045c0e0a6d83289e670132cc Mon Sep 17 00:00:00 2001 From: Steve Ashton Date: Thu, 21 Apr 2016 13:52:20 -0500 Subject: [PATCH] Update checkouts path creation --- src/leiningen/checkout/rm.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/leiningen/checkout/rm.clj b/src/leiningen/checkout/rm.clj index 8f16440..88dbd89 100644 --- 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)]