diff options
Diffstat (limited to 'compiler/GHC/Cmm/Switch/Implement.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Switch/Implement.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Switch/Implement.hs b/compiler/GHC/Cmm/Switch/Implement.hs index 3279c5ab05..a91809e585 100644 --- a/compiler/GHC/Cmm/Switch/Implement.hs +++ b/compiler/GHC/Cmm/Switch/Implement.hs @@ -35,7 +35,7 @@ import GHC.Utils.Monad (concatMapM) cmmImplementSwitchPlans :: DynFlags -> CmmGraph -> UniqSM CmmGraph cmmImplementSwitchPlans dflags g -- Switch generation done by backend (LLVM/C) - | targetSupportsSwitch (hscTarget dflags) = return g + | backendSupportsSwitch (backend dflags) = return g | otherwise = do blocks' <- concatMapM (visitSwitches (targetPlatform dflags)) (toBlockList g) return $ ofBlockList (g_entry g) blocks' |