diff options
Diffstat (limited to 'compiler/GHC/Cmm/Utils.hs')
-rw-r--r-- | compiler/GHC/Cmm/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Utils.hs b/compiler/GHC/Cmm/Utils.hs index 2060be5bda..17b3902673 100644 --- a/compiler/GHC/Cmm/Utils.hs +++ b/compiler/GHC/Cmm/Utils.hs @@ -576,7 +576,7 @@ toBlockListEntryFirstFalseFallthrough g ofBlockList :: BlockId -> [CmmBlock] -> CmmGraph ofBlockList entry blocks = CmmGraph { g_entry = entry , g_graph = GMany NothingO body NothingO } - where body = foldr addBlock emptyBody blocks + where body = foldr addBlock emptyBody blocks -- bodyToBlockList :: Body CmmNode -> [CmmBlock] bodyToBlockList body = mapElems body |