add port argument to run-local, default port 8080

deduktion · Aug 17, 2011 · 9c71fe1 · 9c71fe1
1 parent 2a43cc8
commit 9c71fe1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/clj_hh/local.clj b/src/clj_hh/local.clj
@@ -3,5 +3,5 @@
             [clj-hh.core :as core]))
 
 (defn run-local
-  []
-  (ae/serve core/clj-hh-app))
+  [ & {:keys [port] :or {port 8080}}]
+  (ae/serve core/clj-hh-app :port port))