Correct fixity for operators

circuithub · Mar 17, 2017 · 2d7c907 · 2d7c907
1 parent 9d37558
commit 2d7c907
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/Rel8.hs b/Rel8.hs
@@ -142,9 +142,11 @@ import Rel8.Internal
 import Streaming (Of, Stream)
 
 infix 4 ==? , <? , <=? , >? , >=?
-infixr 2 ||?,  &&?
+infixr 2 ||?
+infixr 3 &&?
 infixl 7 *?
 infixl 6 +?, -?
+infixr 7 /?
 
 --------------------------------------------------------------------------------
 (==?)

diff --git a/Rel8/Internal/Operators.hs b/Rel8/Internal/Operators.hs
@@ -19,7 +19,8 @@ import Rel8.Internal.Expr
 
 --------------------------------------------------------------------------------
 infix 4 ==.,  <. , <=. , >. , >=.
-infixr 2 ||.,  &&.
+infixr 2 ||.
+infixr 3 &&.
 
 --------------------------------------------------------------------------------
 -- | Corresponds to @NOT@.