Return java.io.Files from find-files

haiyun-document · Apr 10, 2012 · bdffcfa · bdffcfa
1 parent f322981
commit bdffcfa
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/fs/core.clj b/src/fs/core.clj
@@ -407,8 +407,8 @@ If 'trim-ext' is true, any extension is trimmed."
        (replace \/ \.))))
 
 (defn find-files
-  "Walks directory recursively and return paths of files matching given pattern."
+  "Find files matching given pattern."
   [path pattern]
-  (for [f (-> path io/file file-seq)
+  (for [f (-> path file file-seq)
         :when (re-matches pattern (.getName f))]
-    (.getPath f)))
+    f))