 (ns expound.alpha
   "Functions to print human-readable errors for clojure.spec"
-  (:require [expound.paths :as paths]
-            [expound.problems :as problems]
+  (:require [expound.problems :as problems]
             [clojure.spec.alpha :as s]
             [clojure.string :as string]
             [clojure.set :as set]

        grouped-subproblems (vals (group-by :expound.spec.problem/type subproblems))]
    (string/join
     "\n\nor\n\n"
     (map #(expected-str2 % opts) grouped-subproblems))))

;; TODO - namespace to expound
(defmethod value-str :expound.problem/value-group [type spec-name val path problems opts]

         (printer/format
          "%s\n\n%s"
          (value-str type spec-name form in [problem] opts)
          (expected-str2 spec-name [problem] opts)))))))

(defmethod problem-group-str :expound.problem/alt-group [_type spec-name val path problems opts]
  (s/assert ::singleton problems)
