Respect and Fix disable-next-binding/decl

The 92 indicates that this version is based on ghc-9.2.*.
Given that we support a single GHC version at a time
(and avoid any CPP mess) I thought this might be appropriate.
This also allows bug-fix releases to different "branches",
i.e. publishing 92.x.x.(n+1) together with 94.y.y.(n+1) to
address some bug that affects both the ghc-9.2.* branch
and the ghc-9.4 branch. From a PVP perspective it might not
be ideal that we regularly bump major versions when the
API does not actually change much, if at all, but given that
brittany primarily is an executable and will probably have
a small set of reverse-dependencies this seems acceptable.

source/library/Language/Haskell/Brittany/Internal/Config/InlineParsing.hs

@@ -22,7 +22,6 @@ import           GHC.Parser.Annotation          ( EpaCommentTok
                                                   )
                                                 )
 import qualified UI.Butcher.Monadic            as Butcher
--- import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint.Utils
 import           Control.Monad.Trans.Except
 
 import           Language.Haskell.Brittany.Internal.Config.Config
@@ -31,6 +30,8 @@ import Language.Haskell.Brittany.Internal.Util.AST
 import Language.Haskell.Brittany.Internal.Config.Types.Instances1 ()
 import Language.Haskell.Brittany.Internal.Config.Types.Instances2 ()
 -- import Language.Haskell.Brittany.Internal.Utils
+-- import qualified Language.Haskell.GHC.ExactPrint.Utils as ExactPrint.Utils
+-- import Data.Data(toConstr)
 
 
 
@@ -39,6 +40,7 @@ data InlineConfigTarget
     | InlineConfigTargetNextDecl    -- really only next in module
     | InlineConfigTargetNextBinding -- by name
     | InlineConfigTargetBinding String
+  deriving Show
 
 extractCommentConfigs
   :: (String -> IO ())
@@ -116,13 +118,13 @@ extractCommentConfigs _putErrorLn modul = do
         ]
   let perSpan = Map.fromListWith
         (<>)
-        [ (srcSpan, conf)
+        [ (declSpan, conf)
         | (srcSpan, target, conf) <- lineConfigs
-        , let perBindRes = Map.lookupGT srcSpan declMap
+        , Just (declSpan, names) <- [Map.lookupGT srcSpan declMap]
         , case target of
-          InlineConfigTargetNextDecl -> True
+          InlineConfigTargetNextDecl    -> True
-          InlineConfigTargetNextBinding | Nothing <- perBindRes -> True
+          InlineConfigTargetNextBinding -> null names
-          _                          -> False
+          _ -> False
         ]
 
   pure

source/library/Language/Haskell/Brittany/Internal/StepOrchestrate.hs

@@ -218,7 +218,8 @@ ppToplevelDecl decl immediateAfterComms = do
     declConfig & _conf_roundtrip_exactprint_only & confUnpack
   bd <- fmap fst $ if exactprintOnly
     then briDocMToPPM layouters
-      $ docSeq (briDocByExact decl : map commentToDoc immediateAfterComms)
+      $ docSeq
+        (briDocByExactNoComment decl : map commentToDoc immediateAfterComms)
     else do
       let innerDoc = case decl of
             L (SrcSpanAnn _ (GHC.RealSrcSpan s _)) _ ->