|
@@ -52,7 +52,7 @@ let parse_file_from_lexbuf com file p lexbuf =
|
|
parse_result
|
|
parse_result
|
|
|
|
|
|
let parse_file_from_lexbuf com file p lexbuf =
|
|
let parse_file_from_lexbuf com file p lexbuf =
|
|
- Timer.time com.timer_ctx ["parsing";file] (parse_file_from_lexbuf com file p) lexbuf
|
|
|
|
|
|
+ Timer.time com.timer_ctx ["parsing"] (parse_file_from_lexbuf com file p) lexbuf
|
|
|
|
|
|
let parse_file_from_string com file p string =
|
|
let parse_file_from_string com file p string =
|
|
parse_file_from_lexbuf com file p (Sedlexing.Utf8.from_string string)
|
|
parse_file_from_lexbuf com file p (Sedlexing.Utf8.from_string string)
|