fix size of constructor/attribute locations

Author: jaredly

example-project/src/Other.re

@@ -13,4 +13,4 @@ let m = Dog(1);
 
 let z = {name: "hi", age: 20};
 
-let e = z.name;
+let e = z.name;

src/Definition.re

@@ -703,14 +703,16 @@ module Get = {
                   switch (typ_type.type_kind) {
                     | Types.Type_record(labels, _) => {
                       labels |> List.iter(({Types.ld_id: {stamp, name: lname}, ld_type, ld_loc}) => {
-                        addStamp(stamp, lname, ld_loc, Attribute(ld_type, name, typ_type), docs);
-                        addLocation(ld_loc, {Types.desc: Types.Tnil, level: 0, id: 0}, IsDefinition(stamp));
+                        let shortLoc = Utils.clampLocation(ld_loc, String.length(lname));
+                        addStamp(stamp, lname, shortLoc, Attribute(ld_type, name, typ_type), docs);
+                        addLocation(shortLoc, {Types.desc: Types.Tnil, level: 0, id: 0}, IsDefinition(stamp));
                       })
                     }
                     | Types.Type_variant(constructors) => {
                       constructors |> List.iter(({Types.cd_id: {stamp, name: cname}, cd_loc} as cd) => {
-                        addStamp(stamp, cname, cd_loc, Constructor(cd, name, typ_type), docs);
-                        addLocation(cd_loc, {Types.desc: Types.Tnil, level: 0, id: 0}, IsDefinition(stamp));
+                        let shortLoc = Utils.clampLocation(cd_loc, String.length(cname));
+                        addStamp(stamp, cname, shortLoc, Constructor(cd, name, typ_type), docs);
+                        addLocation(shortLoc, {Types.desc: Types.Tnil, level: 0, id: 0}, IsDefinition(stamp));
                       })
 
                     }

src/util/Utils.re

@@ -27,6 +27,16 @@ let endOfLocation = (loc, length) => Location.({
   }
 });
 
+let clampLocation = (loc, length) => Location.({
+  {
+    ...loc,
+    loc_end: {
+      ...loc.loc_start,
+      pos_cnum: loc.loc_start.pos_cnum + length
+    }
+  }
+});
+
 let chopPrefix = (s, prefix) => sliceToEnd(s, String.length(prefix));
 
 let filterMap = (fn, items) =>