Fixed wrap-lint middleware to accept ISeq as valid response body

@@ -77,9 +77,9 @@
       (lint hval #(or (string? %) (every? string? %))
         "header values must be Strings or colls of Strings")))
 
-  (lint (:body resp) #(or (nil? %) (string? %) (instance? File %)
+  (lint (:body resp) #(or (nil? %) (string? %) (seq? %) (instance? File %)
                           (instance? InputStream %))
-    ":body must a String, File, or InputStream"))
+    ":body must a String, ISeq, File, or InputStream"))
 
 (defn wrap-lint
   "Wrap an app to validate incoming requests and outgoing responses

@@ -123,5 +123,5 @@
   [nil {:foo "bar"} {"foo" :bar} {"dir" 123}])
 
 (lints-resp :body
-  [nil "thebody" (tu/string-input-stream "thebody") (File. "test/ring/assets/foo.html")]
+  [nil "thebody" (list "foo" "bar") (tu/string-input-stream "thebody") (File. "test/ring/assets/foo.html")]
   [123 :thebody])