From 811cb8434f6f8160093d359aecc5bf4b279a1aea Mon Sep 17 00:00:00 2001 From: Ryan Senior Date: Fri, 22 Jun 2012 09:51:48 -0500 Subject: [PATCH] Add some type hints to the new emit event code --- src/main/clojure/clojure/data/xml.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/clojure/clojure/data/xml.clj b/src/main/clojure/clojure/data/xml.clj index 1e39806..cb00655 100644 --- a/src/main/clojure/clojure/data/xml.clj +++ b/src/main/clojure/clojure/data/xml.clj @@ -35,13 +35,13 @@ (defrecord CData [content]) (defrecord Comment [content]) -(defn emit-start-tag [event writer] +(defn emit-start-tag [event ^javax.xml.stream.XMLStreamWriter writer] (let [nspace (namespace (:name event)) qname (name (:name event))] (.writeStartElement writer "" qname (or nspace "")) (write-attributes (:attrs event) writer))) -(defn emit-event [event writer] +(defn emit-event [event ^javax.xml.stream.XMLStreamWriter writer] (case (:type event) :start-element (emit-start-tag event writer) :end-element (.writeEndElement writer)