Simplify code for infix operator detection a bit
Also remove ~ from the valid symbols. Not needed and generally too
close to - in small sizes.
commited80d49c43006089dd131ed3fd370560eea5c6db
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 19 Jan 2018, 16:48 (9 years ago)
parent01e6c52
src/Parse/Primitives/Symbol.hs+1−9
@@ -97,15 +97,7 @@ binopCharVector =
9797{-# NOINLINE binopCharSet #-}
9898binopCharSet :: IntSet.IntSet
9999binopCharSet =
100− IntSet.fromList (map Char.ord (Map.keys binopTable))
101−
102−
103−binopTable :: Map.Map Char Char
104−binopTable =
105− Map.fromList $
106− zip
107− "+-/*=.<>:&|^?%~!"
108− "abcdefghijklmnop"
100+ IntSet.fromList (map Char.ord "+-/*=.<>:&|^?%!")
109101
110102
111103