Source file location.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open Core_kernel

type t =
  { offset : int
  ; line : int
  ; column : int
  }
[@@deriving yojson, eq, sexp]

let default =
  { offset = -1
  ; line = -1
  ; column = -1
  }