Allow sequences in Object/Link properties

This commit is contained in:
bom 2023-07-06 14:15:36 +02:00
parent 95214d3029
commit 2b39da557c

View file

@ -46,20 +46,37 @@
(s/def ::attributedTo (s/or :object ::Object :link ::Link)) (s/def ::attributedTo (s/or :object ::Object :link ::Link))
(s/def ::actor ::attributedTo) (s/def ::actor ::attributedTo)
; TODO: Allow sequences (s/def ::object
(s/def ::object (s/or :object ::Object :link ::Link)) (s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::result (s/or :object ::Object :link ::Link)) (s/def ::result
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::target (s/or :object ::Object :link ::Link)) (s/def ::target
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::origin (s/or :object ::Object :link ::Link)) (s/def ::origin
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::instrument (s/or :object ::Object :link ::Link)) (s/def ::instrument
(s/or :object ::Object
:link ::Link
:objects (s/coll-of ::Object)
:links (s/coll-of ::Link)))
(s/def ::verb uri?) (s/def ::verb core/uri-string?)
(s/def ::instrument (s/or :object ::Object :link ::Link))