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 ::actor ::attributedTo)
|
||||
|
||||
; TODO: Allow sequences
|
||||
(s/def ::object (s/or :object ::Object :link ::Link))
|
||||
(s/def ::object
|
||||
(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 ::instrument (s/or :object ::Object :link ::Link))
|
||||
(s/def ::verb core/uri-string?)
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue