From e3be3ef272aba1d4ae0b1f4297ae89362753bba1 Mon Sep 17 00:00:00 2001 From: Max Penet Date: Thu, 30 May 2024 08:57:36 +0200 Subject: [PATCH] [wip] --- src/exoscale/lingo.cljc | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/exoscale/lingo.cljc b/src/exoscale/lingo.cljc index a50a191..dfbc799 100644 --- a/src/exoscale/lingo.cljc +++ b/src/exoscale/lingo.cljc @@ -5,8 +5,6 @@ [exoscale.lingo.impl :as impl] [exoscale.lingo.utils :as u])) -(create-ns 'exoscale.lingo.pred) - (def registry-ref (atom (merge #:exoscale.lingo.registry.spec{:message {}} #:exoscale.lingo.registry.pred{:conformers #{} @@ -75,7 +73,7 @@ pred-data (if (and (= reason "no method") (not (= :exoscale.lingo.pred/symbol (:exoscale.lingo.explain.pred/val pred-data)))) - (conformer conformers `(exoscale.lingo.pred/no-method ~pred)) + (conformer conformers `(exoscale.lingo/pred-no-method ~pred)) pred-data)] (cond-> pb pred-data (into pred-data))))))) @@ -431,7 +429,7 @@ (impl/format "should be an Integer between %d and %d" min max))) (set-pred-error! (s/def :exoscale.lingo.pred/no-method - (s/cat :_ #{'exoscale.lingo.pred/no-method} + (s/cat :_ #{'exoscale.lingo/pred-no-method} :method ident?)) (fn [{:keys [method]} _opts] (impl/format "should allow dispatch on %s" method)))