Allow sequences in Object/Link properties
This commit is contained in:
parent
95214d3029
commit
2b39da557c
1 changed files with 39 additions and 22 deletions
|
@ -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))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue