summaryrefslogtreecommitdiff
path: root/src/util.mli
blob: 119ae01bc9045061863fcdb8f349779bd9a74d22 (plain)
1
2
3
4
5
exception Syntax_error of ((int * int) option * string)

val get_lexing_position : Lexing.lexbuf -> int * int

val default : 'a -> 'a option -> 'a