Proper middleware form

build.boot

@@ -2,7 +2,7 @@
 (def project-name "clj-boot")
 (def project-openness :open-source)
 
-(def version  "0.1.5")
+(def version  "0.1.6")
 (def description "Standard Brad's Deals boot build tasks")
 (def scm-url "https://github.com/shopsmart/clj-boot")
 

src/clj_boot/core.clj

@@ -24,14 +24,16 @@
 project-types set.  In addition, may test that the current project is exactly a single type via
 the 'expect' parameter."
   [e expect PROJECT-TYPE kw "The expected project type"]
-  (if-not (project-types @project-type)
-    (throw (ex-info (str "This project is " @project-type " but must be one of " project-types)
-                    {})))
-
-  (if-not (= expect @project-type)
-    (throw (ex-info (str "This project is " @project-type " but must be " expect
-                         ".\nto perform this operation.\n  Supported project types: " project-types)
-                    {}))))
+  (fn middleware [next-handler]
+    (fn handler [fileset]
+      (if-not (project-types @project-type)
+        (throw (ex-info (str "This project is " @project-type " but must be one of " project-types)
+                        {})))
+      (if-not (= expect @project-type)
+        (throw (ex-info (str "This project is " @project-type " but must be " expect
+                             ".\nto perform this operation.\n  Supported project types: " project-types)
+                        {})))
+      (next-handler fileset))))
 
 
 (deftask dev