@@ -119,7 +119,7 @@ anyOp =
119119symOp :: IParser String
120120symOp =
121121 do op <- many1 (satisfy Help.isSymbol)
122− guard (op `notElem` [ "=", "..", "->", "--", "|", "\8594", ":" ])
122+ guard (op `notElem` [ "=", "..", "->", "--", "|", ":" ])
123123 case op of
124124 "." -> notFollowedBy lower >> return op
125125 _ -> return op
@@ -129,12 +129,12 @@ symOp =
129129
130130equals :: IParser String
131131equals =
132− string "=" <?> "="
132+ string "=" <?> "an equals sign '='"
133133
134134
135135rightArrow :: IParser String
136136rightArrow =
137− string "->" <|> string "\8594" <?> "->"
137+ string "->" <?> "an arrow '->'"
138138
139139
140140hasType :: IParser String