@@ -40,7 +40,9 @@ toVar v =
4040
4141accessor :: IParser Src.RawExpr'
4242accessor =
43− do (start, lbl, end) <- located (try (string "." >> rLabel))
43+ do start <- getMyPosition
44+ label <- try (char '.' >> rLabel)
45+ end <- getMyPosition
4446
4547 let ann value =
4648 A.at start end value
@@ -48,7 +50,7 @@ accessor =
4850 return $
4951 Src.Lambda
5052 (ann (P.Var "_"))
51− (ann (Src.Access (ann (Src.var "_")) lbl))
53+ (ann (Src.Access (ann (Src.var "_")) label))
5254
5355
5456negative :: IParser Src.RawExpr'