code quality

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

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

Loading…
Cancel
Save