 (def structure-names
   {:workflow :workflow
    :catalog :catalog-entry
-   :lifecycles :lifecycles-entry})
+   :lifecycles :lifecycle-entry})
 
 (defn matches-faulty-key? [k v elements faulty-key]
   (some #{k v} #{faulty-key}))

            (show-map context faulty-key error-f)
            (show-docs entry faulty-key)
            (show-footer)))))


(defmethod predicate-error-msg 'keyword-namespaced?
  [entry error-data]
  (if (seq (:predicates error-data))
    (let [chain (->> (:predicates error-data)
                     (select-keys predicate-phrases)
                     (vals)
                     (chain-phrases))]
      [(str "^-- Value " (pr-str (get entry (:error-key error-data))) " must be " chain)])
    [(str "^-- Value " (pr-str (get entry (:error-key error-data))) " must be " (get predicate-phrases (:predicate error-data)))]))

(defmethod predicate-error-msg 'edge-two-nodes?
  [entry {:keys [error-value]}]
