From 1ea892328f787dda6b291f9aaf31be7af8054f28 Mon Sep 17 00:00:00 2001
From: "Michael S. Klishin" <michael@novemberain.com>
Date: Sun, 11 Sep 2011 11:11:02 +0400
Subject: [PATCH] Use "new style" type hints

---
 src/monger/convertion.clj | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/monger/convertion.clj b/src/monger/convertion.clj
index d7388f5..a5a87f2 100644
--- a/src/monger/convertion.clj
+++ b/src/monger/convertion.clj
@@ -39,20 +39,20 @@
     input)
 
   Keyword
-  (to-db-object [#^Keyword input] (.getName input))
+  (to-db-object [^Keyword input] (.getName input))
 
   IPersistentMap
-  (to-db-object [#^IPersistentMap input]
+  (to-db-object [^IPersistentMap input]
     (let [o (BasicDBObject.)]
       (doseq [[k v] input]
         (.put o (to-db-object k) (to-db-object v)))
       o))
 
   List
-  (to-db-object [#^List input] (map to-db-object input))
+  (to-db-object [^List input] (map to-db-object input))
 
   DBObject
-  (to-db-object [#^DBObject input] input))
+  (to-db-object [^DBObject input] input))
 
 
 
@@ -69,19 +69,19 @@
   (from-db-object [input keywordize] input)
 
   Map
-  (from-db-object [#^Map input keywordize]
+  (from-db-object [^Map input keywordize]
     (associate-pairs (.entrySet input) keywordize))
 
   List
-  (from-db-object [#^List input keywordize]
+  (from-db-object [^List input keywordize]
     (vec (map #(from-db-object % keywordize) input)))
 
   BasicDBList
-  (from-db-object [#^BasicDBList input keywordize]
+  (from-db-object [^BasicDBList input keywordize]
     (vec (map #(from-db-object % keywordize) input)))
 
   DBObject
-  (from-db-object [#^DBObject input keywordize]
+  (from-db-object [^DBObject input keywordize]
     ;; DBObject provides .toMap, but the implementation in
     ;; subclass GridFSFile unhelpfully throws
     ;; UnsupportedOperationException
@@ -103,9 +103,9 @@
   ;; dramatically, which was the main barrier to matching pure-Java
   ;; performance for this marshalling
   (reduce (if keywordize
-            (fn [m [#^String k v]]
+            (fn [m [^String k v]]
               (assoc m (keyword k) (from-db-object v true)))
-            (fn [m [#^String k v]]
+            (fn [m [^String k v]]
               (assoc m k (from-db-object v false))))
           {} (reverse pairs)))