Add some type hints to the new emit event code

clojure · Jun 22, 2012 · 811cb84 · 811cb84
1 parent 857ffb3
commit 811cb84
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)