Another silly flatten that could be a mapcat

heliclei · Oct 23, 2014 · 7cbd5bf · 7cbd5bf
1 parent 77879b2
commit 7cbd5bf
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/leiningen/clean.clj b/src/leiningen/clean.clj
@@ -38,10 +38,9 @@
   (let [root-dir (:root project)]
     (->> [:source-paths :java-source-paths :test-paths :resource-paths]
          (select-keys project)
-         vals
-         flatten
-         (cons (io/file root-dir "doc"))
-         (cons (io/file root-dir "project.clj"))
+         (mapcat val)
+         (list* (io/file root-dir "doc")
+                (io/file root-dir "project.clj"))
          (map io/file)
          (map #(.getCanonicalPath %))
          set)))