git.iko.soy/elk
on master help sign in
Simplify code for infix operator detection a bit
ed80d49Evan Czaplicki
src/Parse/Primitives/Symbol.hs+1−9
compare with master
unifiedsplit
@@ -97,15 +97,7 @@ binopCharVector =
97{-# NOINLINE binopCharSet #-}
97{-# NOINLINE binopCharSet #-}
98binopCharSet :: IntSet.IntSet
98binopCharSet :: IntSet.IntSet
99binopCharSet =
99binopCharSet =
100− IntSet.fromList (map Char.ord (Map.keys binopTable))
100+ IntSet.fromList (map Char.ord "+-/*=.<>:&|^?%!")
101−
102−
103−binopTable :: Map.Map Char Char
104−binopTable =
105− Map.fromList $
106− zip
107− "+-/*=.<>:&|^?%~!"
108− "abcdefghijklmnop"
109
101
110
102
111
103