Source file `Talk.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

(* À étendre *)

type t =
  | Ack
  | Err

let ack = [
  "OK.";
  "done.";
  "Success"
]

let error = [
  "oops";
  "uh";
  "hmm";
  "Failure";
]

let talk_base = function
  | Ack -> ack
  | Err -> error

let select ty = talk_base ty |> Prelude.random_l