simon/dog-and-duck
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More refactoring.

Browse source
This commit is contained in:
Simon Brooke 2022-12-25 15:15:33 +00:00
parent a4b0e43a76
commit 09ebdafff5
2 changed files with 55 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/dog_and_duck/quack/picky/utils.clj
View file

@ -144,6 +144,12 @@
`(if (and (coll? ~x) (empty? ~x)) nil
~x))
(defn concat-non-empty
"Quick function to replace the pattern (nil-if-empty (remove nil? (concat ...)))
which I'm using a lot!"
[& lists]
(nil-if-empty (remove nil? (apply concat lists))))
(defn has-type-or-fault
"If object `x` has a `:type` value which is `acceptable`, return `nil`;
else return a fault object with this `severity` and `token`.