Up – Package index » memtrace_viewer » Sources » memtrace_viewer.common » orientation.ml

Source file `orientation.ml`

memtrace_viewer
- LICENSE
- Library memtrace_viewer.common
  - Memtrace_viewer_common
- Library memtrace_viewer.native
  - Memtrace_viewer_native
- Sources
  - memtrace_viewer.common
  - memtrace_viewer.native

1
2
3
4
5
6
7
8
9
type t =
  | Callers
  | Callees
[@@deriving sexp, equal]

let flip = function
  | Callers -> Callees
  | Callees -> Callers
;;