Source file `range.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(************************************************************************)
(* Flèche => document manager: Language Support                         *)
(* Copyright 2019-2023 Inria      -- Dual License LGPL 2.1 / GPL3+      *)
(* Written by: Emilio J. Gallego Arias                                  *)
(************************************************************************)

type t =
  { start : Point.t
  ; end_ : Point.t
  }

let pp fmt { start; end_ } =
  Format.fprintf fmt "(@[%a@]--@[%a@])" Point.pp start Point.pp end_

let to_string r = Format.asprintf "%a" pp r