Add inequality operator `!=`
authorMarkus Hauck <markus1189@gmail.com>
Tue, 21 Nov 2017 19:32:20 +0000 (19:32 +0000)
committerMarkus Hauck <markus1189@gmail.com>
Tue, 21 Nov 2017 19:32:20 +0000 (19:32 +0000)
(fixes #5).

doc/arbtt.xml
src/Categorize.hs

index 0695511..16d3c76 100644 (file)
@@ -465,7 +465,8 @@ $ runhaskell Setup.hs install</screen>
 
           <production id="g-cmpop">
             <lhs>CmpOp</lhs>
-            <rhs><quote>&lt;=</quote> | <quote>&lt;</quote> | <quote>==</quote>
+            <rhs><quote>&lt;=</quote> | <quote>&lt;</quote> |
+            <quote>==</quote> | <quote>!=</quote>
             | <quote>&gt;</quote> | <quote>&gt;=</quote></rhs>
           </production>
 
index cb12358..8395ed2 100644 (file)
@@ -347,6 +347,7 @@ parseCmp = choice $ map (\(s,o) -> reservedOp lang s >> return o)
                          (">", Cmp (>)),
                          ("==",Cmp (==)),
                          ("=", Cmp (==)),
+                         ("!=",Cmp (/=)),
                          ("<", Cmp (<)),
                          ("<=",Cmp (<=))]