 
 (defn form-instances-by-id
   [^DatastoreService ds ids]
-  (.get ds ^Iterable (mapv (fn [^long x]
+  (.get ds ^Iterable (mapv (fn [^Long x]
                              (KeyFactory/createKey "SurveyInstance" x)) ids)))
 
 (defn by-ids

                    (let [;; SimpleDateFormat is not thread safe so we create a
                          ;; new one every time.
                          date-format (SimpleDateFormat. "dd-MM-yyyy HH:mm:ss z")]
                      (.parse date-format response-str))))]
    (ds/to-iso-8601 date)))

(defmethod parse-response "CASCADE"

                              (assoc form-instance
                                :responses
                                (get responses (:id form-instance))))
                        form-instances)})))
