Source file `source_code_position0.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Import

module Stable = struct
  module V1 = struct
    include Base.Source_code_position

    type t = Base.Source_code_position.t =
      { pos_fname : string
      ; pos_lnum : int
      ; pos_bol : int
      ; pos_cnum : int
      }
    [@@deriving bin_io, compare, equal, fields ~getters, hash, sexp, stable_witness]
  end
end

include Stable.V1

let to_string = Base.Source_code_position.to_string
let sexp_of_t = Base.Source_code_position.sexp_of_t