I wonder how I would spec a function, that has a parameter, that hold a map in an atom.

(defn do-something [a] (prn (vals @a)))

This those obviously not work:

(s/fdef do-something :args (s/cat :a map?))