@ -6,8 +6,7 @@
(re-matches #".*\s.*" s))
(defn tag-names-from-input [s]
(->> (split s #",")
(map trim)))
(map trim (split s #",")))
(defn any-tag-name-contains-whitespace [s]
(some contains-whitespace? (tag-names-from-input s)))