|
|
|
@ -5,6 +5,8 @@
|
|
|
|
|
[org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sh]
|
|
|
|
|
[clojure.data.json :as json]))
|
|
|
|
|
|
|
|
|
|
(declare normalize-functional-property)
|
|
|
|
|
|
|
|
|
|
(defn normalize-value [v]
|
|
|
|
|
(cond (map? v)
|
|
|
|
|
(walk/walk normalize-functional-property identity v)
|
|
|
|
@ -12,6 +14,7 @@
|
|
|
|
|
(map normalize-value v)
|
|
|
|
|
:else v))
|
|
|
|
|
|
|
|
|
|
; TODO: Consider using tail recursion in case of prod usage
|
|
|
|
|
(defn normalize-functional-property [elem]
|
|
|
|
|
(let [k (first elem)
|
|
|
|
|
v (second elem)]
|
|
|
|
|