defphrase not matching set parameter

[andywokr]

This library was exactly what I needed. I am having trouble with the defphrase for the following predicate however.

(defn contains-only?
  [m ks]
  (-> m keys set (set/difference ks) empty?))

Put together the following code to show the problem.

(ns phraser-test
  (:require [phrase.alpha :refer [defphraser] :as phraser]
            [clojure.set :as set]
            [clojure.spec.alpha :as s]))

(defn contains-only?
  [m ks]
  (-> m keys set (set/difference ks) empty?))

(defphraser #(contains-only? % ks)
  [_ _ ks]
  (str ks " are the only allowed keys."))

(s/def ::person #(contains-only? % #{:name :age :gender}))

(defn test []
  (phraser/phrase-first {} ::person {:name "dave" :age 42 :gender :male :hair :brown}))

Despite several attempts I cannot get the phraser dispatching to match. Any help would be appreciated.

[blue0513]

I faced a similar problem.
When I try to phrase with Set parameter, I couldn't show self-defined error message

;; Need :a or :b 
(s/def ::rule #(some #{:a :b} (keys %)))

;; When check {:x 1}, of-course it raises error
(s/explain-data ::rule {:x 1})

;; When phrase
(p/phrase-first {} ::rule {:x 1})

;; It CAN be invoked and show "errro 1"
(p/defphraser #(some #{:a :b} (keys %)) [_ _] "error 1")

;; It CAN NOT be invoked
(p/defphraser #(some my-hash (keys %)) [_ _] "error 2")

;; It CAN NOT be invoked
(p/defphraser #(some my-hash (keys %))  [_ _ my-hash]  "error 3")