Minor code formatting

This commit is contained in:
Peter Taoussanis 2014-03-13 14:49:44 +07:00
parent 01ec14613a
commit c95a3253c7
1 changed files with 2 additions and 2 deletions

View File

@ -36,8 +36,8 @@
will be deleted. In future, there will be a suffix fn to customize will be deleted. In future, there will be a suffix fn to customize
the naming of archived logs." the naming of archived logs."
[basepath max-count] [basepath max-count]
(let [abs-path (-> basepath io/file (.getAbsolutePath)) (let [abs-path (-> basepath io/file (.getAbsolutePath))
logs (-> basepath matching-files sort) logs (-> basepath matching-files sort)
[logs-to-rotate logs-to-delete] (split-at max-count logs)] [logs-to-rotate logs-to-delete] (split-at max-count logs)]
(doseq [log-to-delete logs-to-delete] (doseq [log-to-delete logs-to-delete]
(io/delete-file log-to-delete)) (io/delete-file log-to-delete))