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


(defn form-instances-by-id
  [^DatastoreService ds ids]
  (.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")]
                      (try
                        (.parse date-format response-str)
                        (catch java.text.ParseException _
                          (let [date-format-2 (SimpleDateFormat. "dd-MM-yyyy")]
                            (.parse date-format-2 response-str)))))))]
    (ds/to-iso-8601 date)))

(defmethod parse-response "CASCADE"
