From d3d3b90558dde367b47530a745acd382b84b218a Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Wed, 21 Jun 2023 17:18:23 +0200
Subject: [PATCH] Hardcode two more operator precedences

---
 .../Language/Haskell/Brittany/Internal/Components/OpTree.hs   | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/source/library/Language/Haskell/Brittany/Internal/Components/OpTree.hs b/source/library/Language/Haskell/Brittany/Internal/Components/OpTree.hs
index f0a8084..f68a434 100644
--- 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