Move f to top let

Just a simple refactoring.
juxt · Jun 14, 2014 · 1a68536 · 1a68536
1 parent 0f53f6b
commit 1a68536
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/juxt/dirwatch.clj b/src/juxt/dirwatch.clj
@@ -86,15 +86,15 @@
   systems. The watcher returned by this function is a resource which
   should be closed with close-watcher."
   [f & files]
-  (let [ws (.newWatchService (FileSystems/getDefault))]
+  (let [ws (.newWatchService (FileSystems/getDefault))
+        f (continue-on-exception f)]
     (doseq [file files :when (.exists file)] (register-path ws (. file toPath)))
-    (let [f (continue-on-exception f)]
-      (send-off (agent ws
-                       :meta {::watcher true}
-                       :error-handler (fn [ag ex]
-                                        (.printStackTrace ex)
-                                        (send-off ag wait-for-events f)))
-                wait-for-events f))))
+    (send-off (agent ws
+                     :meta {::watcher true}
+                     :error-handler (fn [ag ex]
+                                      (.printStackTrace ex)
+                                      (send-off ag wait-for-events f)))
+              wait-for-events f)))
 
 (defn close-watcher
   "Close an existing watcher and free up it's resources."