diff options
Diffstat (limited to 'compiler/cmm/CmmContFlowOpt.hs')
| -rw-r--r-- | compiler/cmm/CmmContFlowOpt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index 36e7b8ec62..3fabf33f97 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -97,7 +97,7 @@ blockConcat g@CmmGraph { g_entry = entry_id } maybe_concat :: CmmBlock -> (BlockEnv CmmBlock, BlockEnv BlockId) -> (BlockEnv CmmBlock, BlockEnv BlockId) - maybe_concat block unchanged@(blocks, shortcut_map) + maybe_concat block (blocks, shortcut_map) | CmmBranch b' <- last , Just blk' <- mapLookup b' blocks , shouldConcatWith b' blk' |