git.iko.soy/elk
on master help sign in
Stop using `located` in `accessor` parser
d17d9feEvan Czaplicki
src/Parse/Expression.hs+4−2
compare with master
unifiedsplit
@@ -40,7 +40,9 @@ toVar v =
40
40
41accessor :: IParser Src.RawExpr'
41accessor :: IParser Src.RawExpr'
42accessor =
42accessor =
43− do (start, lbl, end) <- located (try (string "." >> rLabel))
43+ do start <- getMyPosition
44+ label <- try (char '.' >> rLabel)
45+ end <- getMyPosition
44
46
45 let ann value =
47 let ann value =
46 A.at start end value
48 A.at start end value
@@ -48,7 +50,7 @@ accessor =
48 return $
50 return $
49 Src.Lambda
51 Src.Lambda
50 (ann (P.Var "_"))
52 (ann (P.Var "_"))
51− (ann (Src.Access (ann (Src.var "_")) lbl))
53+ (ann (Src.Access (ann (Src.var "_")) label))
52
54
53
55
54negative :: IParser Src.RawExpr'
56negative :: IParser Src.RawExpr'