diff options
Diffstat (limited to 'compiler/GHC/CmmToAsm/Dwarf.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/Dwarf.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/Dwarf.hs b/compiler/GHC/CmmToAsm/Dwarf.hs index 503aca0b3e..10720aef7d 100644 --- a/compiler/GHC/CmmToAsm/Dwarf.hs +++ b/compiler/GHC/CmmToAsm/Dwarf.hs @@ -130,7 +130,7 @@ compileUnitFooter platform unitU = -- Note [Splitting DebugBlocks] for details. debugSplitProcs :: [DebugBlock] -> [DebugBlock] debugSplitProcs b = concat $ H.mapElems $ mergeMaps $ map (split Nothing) b - where mergeMaps = foldr (H.mapUnionWithKey (const (++))) H.mapEmpty + where mergeMaps = foldr (H.mapUnionWithKey (const (++))) H.mapEmpty -- split :: Maybe DebugBlock -> DebugBlock -> H.LabelMap [DebugBlock] split parent blk = H.mapInsert prc [blk'] nested where prc = dblProcedure blk |