Project

General

Profile

Revision 9b0432bc lib/location.ml

View differences:

lib/location.ml
9 9
(*                                                                  *)
10 10
(********************************************************************)
11 11

  
12
type t = { loc_start: Lexing.position; loc_end: Lexing.position }
12
type position = [%import: Lexing.position] [@@deriving show]
13

  
14
type t = { loc_start: Lexing.position [@printer pp_position]; loc_end: Lexing.position [@printer pp_position]}
15
[@@deriving show]
13 16

  
14 17
type filename = string
18
[@@deriving show]
15 19

  
16 20
let dummy_loc = {loc_start=Lexing.dummy_pos; loc_end=Lexing.dummy_pos}
17 21

  

Also available in: Unified diff