diff options
Diffstat (limited to 'lib/kernel/mass_formulary.ml')
| -rw-r--r-- | lib/kernel/mass_formulary.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/kernel/mass_formulary.ml b/lib/kernel/mass_formulary.ml new file mode 100644 index 0000000..60f9f1c --- /dev/null +++ b/lib/kernel/mass_formulary.ml @@ -0,0 +1,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" |