Source file render_relation.ml

1
2
3
4
5
6
7
8
9
10
open! Core

type t =
  | All
  | Ancestors
  | Descendants
  | Both
[@@deriving sexp, enumerate, compare, equal]

let arg = Command.Arg_type.create (fun s -> s |> Sexp.Atom |> t_of_sexp)