   (:require
     [clojure.tools.logging                                    :as log]
     [clojure.edn                                              :as edn]
-    [superstring.core                                           :refer [split]]
+    [superstring.core                                         :as s]
     [clj-time.core                                            :as time]
     [clj-time.format                                          :as time-fmt]
-    [schema.core                                              :as s]
+    [schema.core                                              :as schema]
     [ring.util.response                                       :as r]
     [com.sixsq.slipstream.ssclj.resources.common.debug-utils  :as du]
     [clojure.data.json                                        :as json])

   violations of the schema and a 400 ring response. If everything's
   OK, then the resource itself is returned."
   [schema]
   (let [checker (s/checker schema)]
    (fn [resource]
      (if-let [msg (checker resource)]        
        (let [msg (str "resource does not satisfy defined schema: " msg)

    (do
      (log/warn s " is not lisp-cased.")
      "")
    (s/pascal-case s)))

(defn map-multi-line
  [m]
