Hardcode two more operator precedences

2023-06-21 17:18:23 +02:00 · 2023-06-21 17:18:23 +02:00 · d3d3b90558
parent 9737cb3adc
commit d3d3b90558
1 changed files with 4 additions and 0 deletions
--- a/source/library/Language/Haskell/Brittany/Internal/Components/OpTree.hs
+++ b/source/library/Language/Haskell/Brittany/Internal/Components/OpTree.hs
@ -400,6 +400,10 @@ hardcodedFixity allowUnqualify = \case
  "::-"         -> fixity InfixN 0
  "&!"          -> fixity InfixL 1

+  -- extra
+  "||^"         -> fixity InfixL 9
+  "&&^"         -> fixity InfixL 9
+
  -- quickcheck (-state-machine)
  ":&&"         -> fixity InfixL 9
  ":||"         -> fixity InfixL 9