 (defn resource-name
   [resource-id]
   (-> resource-id
-      (split #"/")
+      (s/split #"/")
       first))
 
 ;;

;; embedded in them
;;

(defn de-camelcase [str]
  (superstring.core/join "-" (map superstring.core/lower-case (superstring.core/split str #"(?=[A-Z])"))))

(defn json-response
  [body]

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