Conform Property to spec

This commit is contained in:
bom 2023-07-06 14:44:26 +02:00
parent 1931365e1c
commit a324de35e4

View file

@ -43,13 +43,14 @@
:opt-un [::result ::target ::origin ::instrument :opt-un [::result ::target ::origin ::instrument
::verb]))) ::verb])))
; "IntransitiveActivity" erbt von Activity, aber ohne ::object ; "IntransitiveActivity" erbt von Activity, aber ohne ::object
(s/def ::attributedTo (s/or :object ::Object :link ::Link))
(s/def ::actor ::attributedTo)
(s/def ::Property (s/or :object ::Object (s/def ::Property (s/or :object ::Object
:link ::Link :link ::Link
:objects (s/coll-of ::Object) :collection (s/coll-of (s/or :object ::Object :link ::Link))))
:links (s/coll-of ::Link)))
(s/def ::attributedTo ::Property)
(s/def ::actor ::attributedTo)
(s/def ::object (s/def ::object
::Property) ::Property)