Respect and Fix disable-next-binding/decl

source/library/Language/Haskell/Brittany/Internal/Components/OpTree.hs

@@ -259,8 +259,6 @@ hardcodedFixity allowUnqualify = \case
   "&&&"       -> Just $ Fixity NoSourceText 3 InfixR
   "<$!>"      -> fixity InfixL 4
 
-  "~"         -> fixity InfixN 4
-  "~~"        -> fixity InfixN 4
   ":~:"       -> Just $ Fixity NoSourceText 4 InfixN
   ":~~:"      -> Just $ Fixity NoSourceText 4 InfixN
   ":+:"       -> fixity InfixR 5
@@ -336,6 +334,7 @@ hardcodedFixity allowUnqualify = \case
   -- "%."        -> Just $ Fixity NoSourceText _ _
   -- "%=="       -> Just $ Fixity NoSourceText _ _
   -- "%=>%"      -> Just $ Fixity NoSourceText _ _
+  -- "&!"        -> Just $ Fixity NoSourceText _ _
   -- "&*"        -> Just $ Fixity NoSourceText _ _
   -- "&/"        -> Just $ Fixity NoSourceText _ _
   -- "&="        -> Just $ Fixity NoSourceText _ _
@@ -349,6 +348,9 @@ hardcodedFixity allowUnqualify = \case
   "==>"       -> fixity InfixR 0
   "=/="       -> fixity InfixN 4
   "==="       -> fixity InfixN 4
+  -- ".*"        -> fixity InfixR 8
+  -- ".**"       -> fixity InfixR 8
+  -- ".***"      -> fixity InfixR 8
   ".:!"       -> fixity InfixL 9
   ".:?"       -> fixity InfixL 9
   -- ".:>"       -> fixity _ _
@@ -359,14 +361,7 @@ hardcodedFixity allowUnqualify = \case
   -- "~"         -> fixity _ _
   "==="       -> fixity InfixN 4
   "!?"        -> fixity InfixL 9
-  "%=="       -> fixity InfixN 3
-  ".*"        -> fixity InfixR 8
-  ".**"       -> fixity InfixR 8
-  ".***"      -> fixity InfixR 8
-  ":?-"       -> fixity InfixN 1
-  "::-"       -> fixity InfixN 0
-  "&!"        -> fixity InfixL 1
-  
+
   -- quickcheck (-state-machine)
   ":&&"       -> fixity InfixL 9
   ":||"       -> fixity InfixL 9
@@ -385,19 +380,18 @@ hardcodedFixity allowUnqualify = \case
   ":<|>"      -> fixity InfixR 3
   ":-"        -> fixity InfixL 0
 
-  -- postgresql-simple
-  ":."        -> fixity InfixR 3 -- this has wildly different fixities in different libraries
-
   -- ?
   -- ":-:"       -> fixity _ _
   -- ":."        -> fixity _ _
   -- ":/:"       -> fixity _ _
+  -- "::-"       -> fixity _ _
   -- "::->"      -> fixity _ _
   -- ":<:"       -> fixity _ _
   -- ":<=:"      -> fixity _ _
   -- ":=:"       -> fixity _ _
   -- ":>:"       -> fixity _ _
   -- ":>=:"      -> fixity _ _
+  -- ":?-"       -> fixity _ _
 
   str         -> case (Safe.headMay str, Safe.lastMay str) of
     (Just '\'', _) -> hardcodedFixity False (drop 1 str)