Skip to content
Snippets Groups Projects
Commit 3d2e08e1 authored by Potato Hatsue's avatar Potato Hatsue Committed by Sylvain Henry
Browse files

interpWays

parent 28c4fee3
No related branches found
No related tags found
1 merge request!2Re-export some 'Way' related functions in DynFlags
This commit is part of merge request !2. Comments created here will be created in the context of that merge request.
Hide whitespace changes
Inline Side-by-side
Showing
with 7 additions and 0 deletions
src/DynFlags.hs
+ 7
− 0
View file @ 3d2e08e1
......@@ -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
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment