diff options
| author | Hugo Heuzard <hugo.heuzard@gmail.com> | 2018-07-21 13:04:53 +0100 |
|---|---|---|
| committer | Hugo Heuzard <hugo.heuzard@gmail.com> | 2018-08-06 13:19:28 +0100 |
| commit | 80431444941fc722a4aaabcf36ca13e818ef5ade (patch) | |
| tree | 1864d2a26212a69c65da4fecce9c5c858b05100e /tools | |
| parent | 35218bf9dfa9452cf7192344d4a3b9ece2c50118 (diff) | |
| download | ocaml-80431444941fc722a4aaabcf36ca13e818ef5ade.tar.gz | |
Add locations to attributes
Changes
fix typo
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/caml_tex.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/caml_tex.ml b/tools/caml_tex.ml index 40d4763c6f..e110e3e7cf 100644 --- a/tools/caml_tex.ml +++ b/tools/caml_tex.ml @@ -500,7 +500,7 @@ module Ellipsis = struct (* we rely on the fact that the default iterator call first the location subiterator, then the attribute subiterator *) last_loc := loc in - let attribute _this (attr,_) = + let attribute _this {Parsetree.attr_name = attr;_} = let name = attr.Location.txt in let loc = !last_loc in let start = loc.Location.loc_start.Lexing.pos_cnum in |