rage/src/place.ml at master · perf101/rage · GitHub

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
open Core

type t =
  | CreateTinyUrl
  | Default
  | RedirectTinyUrl
  | SomData
  | SomPage
  | Soms
  | SomsByTc
  | StdAxes
  | Brief
  | ImportPage
  | ImportJobs

let of_string = function
  | "create_tiny_url" -> CreateTinyUrl
  | "som" -> SomPage
  | "soms" -> Soms
  | "soms_by_tc" -> SomsByTc
  | "som_data" -> SomData
  | "std_axes" -> StdAxes
  | "brief" -> Brief
  | "import_page" -> ImportPage
  | "import_jobs" -> ImportJobs
  | p -> failwith ("place_of_string: " ^ p)

let string_of = function
  | CreateTinyUrl -> "CreateTinyUrl"
  | Default -> "Default"
  | RedirectTinyUrl -> "RedirectTinyUrl"
  | SomData -> "SomData"
  | SomPage -> "SomPage"
  | Soms -> "Soms"
  | SomsByTc -> "SomsByTc"
  | StdAxes -> "StdAxes"
  | Brief -> "brief"
  | ImportPage -> "import_page"
  | ImportJobs -> "import_jobs"