diff options
Diffstat (limited to 'compiler/GHC/Cmm/Switch.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Switch.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Cmm/Switch.hs b/compiler/GHC/Cmm/Switch.hs index f8c6c674ef..c7e11fea1e 100644 --- a/compiler/GHC/Cmm/Switch.hs +++ b/compiler/GHC/Cmm/Switch.hs @@ -315,9 +315,9 @@ and slowed down all other cases making it not worthwhile. -- | Does the backend support switch out of the box? Then leave this to the -- backend! backendSupportsSwitch :: Backend -> Bool -backendSupportsSwitch ViaC = True -backendSupportsSwitch LLVM = True -backendSupportsSwitch _ = False +backendSupportsSwitch (Just ViaC) = True +backendSupportsSwitch (Just LLVM) = True +backendSupportsSwitch _ = False -- | This function creates a SwitchPlan from a SwitchTargets value, breaking it -- down into smaller pieces suitable for code generation. |