raymcdermott

(defn base64-decode
  "Utility function over the Java 8 base64 decoder"
  [to-decode]
  (String. (.decode (Base64/getDecoder) ^String to-decode)))

(defn string->edn
  "Parse JSON from a string returning an edn map, otherwise nil"
  [string]
  (when-let [edn (json/decode string true)]
    (when (map? edn)