OCaml: Implement log contexts
This commit is contained in:
parent
a3805ea1bd
commit
c6c92c0a32
8 changed files with 29 additions and 25 deletions
|
|
@ -98,5 +98,5 @@ let scan_line (input: char list): token list =
|
|||
|
||||
let scan (char_lists: char lists): token lists =
|
||||
let tokens = rmap (scan_line) char_lists $: [End] in
|
||||
elog $ string_of_tokens tokens;
|
||||
elog ~context:Parsing $ string_of_tokens tokens;
|
||||
tokens
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue