Friendpaste

--- Revision None
+++ Revision 626666643534
@@ -0,0 +1,12 @@
+(defn ^String generate-stream
+  "Returns a BufferedWriter for the given Clojure object with the.
+  JSON-encoded data written to the writer. Takes an optional date
+  format string that Date objects will be encoded with.
+
+  The default date format (in UTC) is: yyyy-MM-dd'T'HH:mm:ss'Z'"
+  [obj ^BufferedWriter writer & [^String date-format]]
+  (let [generator (.createJsonGenerator ^JsonFactory (or *json-factory*
+                                                         json-factory) writer)]
+    (generate generator obj (or date-format default-date-format))
+    (.flush generator)
+    writer))
a	b
	0	+	(defn ^String generate-stream
	0	+	"Returns a BufferedWriter for the given Clojure object with the.
	0	+	JSON-encoded data written to the writer. Takes an optional date
	0	+	format string that Date objects will be encoded with.
	0	+
	0	+	The default date format (in UTC) is: yyyy-MM-dd'T'HH:mm:ss'Z'"
	0	+	[obj ^BufferedWriter writer & [^String date-format]]
	0	+	(let [generator (.createJsonGenerator ^JsonFactory (or json-factory
	0	+	json-factory) writer)]
	0	+	(generate generator obj (or date-format default-date-format))
	0	+	(.flush generator)
	0	+	writer))
...