lib/kernel/mass_formulary.ml


1
2
3
4
5
6
7
8

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

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