blob: 1c84d35b2f492aec8857132ade0b6b69f625fea1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(** A celebration. Parameterised by the rite's rank type only. *)
type 'r t = {
slug : Slug.t;
names : Names.t;
rank : 'r;
colour : Colour.t;
subject : Subject.t;
citations : Citation.t list;
layer : string;
}
[@@deriving sexp]
(** [subject] defaults to [Subject.Temporal], [names] to empty, [citations] to []. *)
val make :
slug:Slug.t -> ?names:Names.t -> rank:'r -> colour:Colour.t ->
?subject:Subject.t -> ?citations:Citation.t list -> layer:string -> unit -> 'r t
|
