Source file `email.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type body =
  | Text  of string
  | Html  of string
  | Mixed of string * string * string option

type t = {
  sender : string;
  recipients : string list;
  subject : string;
  body : body;
}

let make ~sender ~recipient ~subject ~body =
  { sender; recipients = [recipient]; subject; body }