Skip to content
Snippets Groups Projects

Re-export some 'Way' related functions in DynFlags

Merged Potato Hatsue requested to merge berberman/ghc-api-compat:dynflags into master
1 unresolved thread
Files
2
src/DynFlags.hs 0 → 100644
+ 30
0
{-# 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
Loading