Respect and Fix disable-next-binding/decl

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

@@ -259,6 +259,8 @@ 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
@@ -334,7 +336,6 @@ hardcodedFixity allowUnqualify = \case
   -- "%."        -> Just $ Fixity NoSourceText _ _
   -- "%=="       -> Just $ Fixity NoSourceText _ _
   -- "%=>%"      -> Just $ Fixity NoSourceText _ _
-  -- "&!"        -> Just $ Fixity NoSourceText _ _
   -- "&*"        -> Just $ Fixity NoSourceText _ _
   -- "&/"        -> Just $ Fixity NoSourceText _ _
   -- "&="        -> Just $ Fixity NoSourceText _ _
@@ -348,9 +349,6 @@ 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 _ _
@@ -361,7 +359,14 @@ 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
@@ -380,18 +385,19 @@ 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)