lib/kernel/mass_formulary.ml


1
2
3
4
5
6
7
8
9
10
11

open Sexplib0.Sexp_conv

type source = Proper | Own_slug | Preceding_sunday | Common | Votive [@@deriving sexp]
type t = { said : Slug.t option; via : source } [@@deriving sexp]

let source_to_string = function
  | Proper -> "proper"
  | Own_slug -> "own"
  | Preceding_sunday -> "preceding-sunday"
  | Common -> "common"
  | Votive -> "votive"