Use Ways API instead of Set specific functions

1 files changed, 4 insertions, 5 deletions

diff --git a/compiler/GHC.hs b/compiler/GHC.hs
index 3405d36c55..f419e21534 100644
--- a/compiler/GHC.hs
+++ b/compiler/GHC.hs
@@ -404,7 +404,6 @@ import GHC.Unit.Home.ModInfo
 import Data.Foldable
 import qualified Data.Map.Strict as Map
 import Data.Set (Set)
-import qualified Data.Set as S
 import qualified Data.Sequence as Seq
 import Data.Maybe
 import Data.Typeable    ( Typeable )
@@ -590,10 +589,10 @@ checkBrokenTablesNextToCode logger dflags
 
 checkBrokenTablesNextToCode' :: MonadIO m => Logger -> DynFlags -> m Bool
 checkBrokenTablesNextToCode' logger dflags
-  | not (isARM arch)                 = return False
-  | WayDyn `S.notMember` ways dflags = return False
-  | not tablesNextToCode             = return False
-  | otherwise                        = do
+  | not (isARM arch)               = return False
+  | ways dflags `hasNotWay` WayDyn = return False
+  | not tablesNextToCode           = return False
+  | otherwise                      = do
     linkerInfo <- liftIO $ getLinkerInfo logger dflags
     case linkerInfo of
       GnuLD _  -> return True