Re-export some 'Way' related functions in DynFlags

ghc-api-compat.cabal

@@ -120,7 +120,9 @@ library
 
    if impl(ghc >= 9.0)
       hs-source-dirs:   src
-      exposed-modules:  Outputable
+      exposed-modules:  Outputable DynFlags
+      build-depends: 
+         containers >= 0.6.0 && <= 0.6.5
       reexported-modules:
            GHC.Rename.Bind                as RnBinds
          , GHC.Rename.Env                 as RnEnv
@@ -347,7 +349,7 @@ library
          , GHC.Driver.Main                as HscMain
          , GHC.Driver.Make                as GhcMake
          , GHC.Driver.Hooks               as Hooks
-         , GHC.Driver.Session             as DynFlags
+        --  , GHC.Driver.Session             as DynFlags
          , GHC.Driver.Phases              as DriverPhases
          , GHC.Driver.Pipeline            as DriverPipeline
          , GHC.Driver.Pipeline.Monad      as PipelineMonad

src/DynFlags.hs

+{-# LANGUAGE CPP #-}
+module DynFlags
+  ( module GHC.Driver.Session,
+    Way(..),
+    wayRTSOnly,
+    wayGeneralFlags,
+    wayUnsetGeneralFlags,
+    buildTag,
+    dynamicGhc,
+    hostFullWays,
+    interpWays,
+  )
+where
+
+import Data.Set (Set)
+import GHC.Driver.Session
+#if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
+import GHC.Platform.Ways
+#else
+import GHC.Driver.Ways
+#endif
+
+buildTag :: DynFlags -> String
+buildTag = waysBuildTag . ways
+
+dynamicGhc :: Bool
+dynamicGhc = hostIsDynamic
+
+interpWays :: Set Way
+interpWays = hostFullWays