interpWays

src/DynFlags.hs

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