code quality

integration-tests
Josha von Gizycki 6 years ago
parent ae70d2f4fc
commit 41a7598ad4

@ -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)))

Loading…
Cancel
Save