summaryrefslogtreecommitdiff
path: root/compiler/GHC/Linker/Loader.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Linker/Loader.hs')
-rw-r--r--compiler/GHC/Linker/Loader.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Linker/Loader.hs b/compiler/GHC/Linker/Loader.hs
index 68484eb288..c9617f1c28 100644
--- a/compiler/GHC/Linker/Loader.hs
+++ b/compiler/GHC/Linker/Loader.hs
@@ -638,8 +638,8 @@ failNonStd dflags srcspan = dieWith dflags srcspan $
text " with" <+> compWay <+>
text "using -osuf to set a different object file suffix."
where compWay
- | WayDyn `elem` ways dflags = text "-dynamic"
- | WayProf `elem` ways dflags = text "-prof"
+ | ways dflags `hasWay` WayDyn = text "-dynamic"
+ | ways dflags `hasWay` WayProf = text "-prof"
| otherwise = text "normal"
ghciWay
| hostIsDynamic = text "with -dynamic"