 
     "Spec failed"))
 
-;; TODO - try a few different names here
-(defmethod problem-group-str :expound.problem/value-group [type spec-name val path problems opts]
+(defmethod problem-group-str :expound.problem-group/one-value [type spec-name val path problems opts]
   (s/assert ::singleton problems)
   (let [problem (first problems)
         subproblems (:problems problem)

     "\n\nor\n\n"
     (map #(expected-str* spec-name % opts) grouped-subproblems))))

(defmethod value-str :expound.problem/value-group [type spec-name val path problems opts]
  (s/assert ::singleton problems)
  (let [problem (first problems)
        subproblems (:problems problem)]

            (if-let [old-group (some #(alternation % group) grps)]
              (-> grps
                  (remove-vec old-group)
                  (conj (problem-group
                         old-group
                         group)))
              (conj grps group)))
