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
2 files
+ 26
2
Compare changes
  • Side-by-side
  • Inline
Files
2
src/DynFlags.hs 0 → 100644
+ 24
0
{-# LANGUAGE CPP #-}
module DynFlags
( module GHC.Driver.Session,
Way(..),
wayRTSOnly,
wayGeneralFlags,
wayUnsetGeneralFlags,
buildTag,
dynamicGhc,
)
where
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
Loading