git.iko.soy/elk
on master help sign in
Remove support for unicode right arrows
5473c62Evan Czaplicki
src/Parse/Helpers.hs+3−3
compare with master
unifiedsplit
@@ -119,7 +119,7 @@ anyOp =
119symOp :: IParser String
119symOp :: IParser String
120symOp =
120symOp =
121 do op <- many1 (satisfy Help.isSymbol)
121 do op <- many1 (satisfy Help.isSymbol)
122− guard (op `notElem` [ "=", "..", "->", "--", "|", "\8594", ":" ])
122+ guard (op `notElem` [ "=", "..", "->", "--", "|", ":" ])
123 case op of
123 case op of
124 "." -> notFollowedBy lower >> return op
124 "." -> notFollowedBy lower >> return op
125 _ -> return op
125 _ -> return op
@@ -129,12 +129,12 @@ symOp =
129
129
130equals :: IParser String
130equals :: IParser String
131equals =
131equals =
132− string "=" <?> "="
132+ string "=" <?> "an equals sign '='"
133
133
134
134
135rightArrow :: IParser String
135rightArrow :: IParser String
136rightArrow =
136rightArrow =
137− string "->" <|> string "\8594" <?> "->"
137+ string "->" <?> "an arrow '->'"
138
138
139
139
140hasType :: IParser String
140hasType :: IParser String