summaryrefslogtreecommitdiff
path: root/src/dompa/nodes.cljc
diff options
context:
space:
mode:
Diffstat (limited to 'src/dompa/nodes.cljc')
-rw-r--r--src/dompa/nodes.cljc8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/dompa/nodes.cljc b/src/dompa/nodes.cljc
index d2f8e4b..eef65d3 100644
--- a/src/dompa/nodes.cljc
+++ b/src/dompa/nodes.cljc
@@ -142,11 +142,19 @@
(and (sequential? coll)
(> (count coll) 1)))
+(defn- empty-seq?
+ [coll]
+ (and (sequential? coll)
+ (empty? coll)))
+
(defn- nodes-from-opt
[opt]
(cond (map? opt)
opt
+ (empty-seq? opt)
+ nil
+
(list-of-many? opt)
{:node/name :<>
:node/children opt}