@@ -64,6 +64,7 @@ symOp = do op <- many1 (satisfy isOp)
64 guard (op `notElem` [ "=", "..", "->", "--", "|", "\8594" ])
64 guard (op `notElem` [ "=", "..", "->", "--", "|", "\8594" ])
65 case op of
65 case op of
66 "." -> notFollowedBy lower >> return op
66 "." -> notFollowedBy lower >> return op
67+ "\8728" -> return "."
67 _ -> return op
68 _ -> return op
69arrow :: IParser String
70arrow :: IParser String