Re-export some 'Way' related functions in DynFlags

src/DynFlags.hs

@@ -7,9 +7,11 @@ module DynFlags
     wayUnsetGeneralFlags,
     buildTag,
     dynamicGhc,
+    hostFullWays,
   )
 where
 
+import Data.Foldable (toList)
 import GHC.Driver.Session
 #if MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
 import GHC.Platform.Ways
@@ -22,3 +24,7 @@ buildTag = waysBuildTag . ways
 
 dynamicGhc :: Bool
 dynamicGhc = hostIsDynamic
+
+interpWays :: [Way]
+interpWays = toList hostFullWays
+