diff options
Diffstat (limited to 'compiler/GHC/Cmm/Graph.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Graph.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Graph.hs b/compiler/GHC/Cmm/Graph.hs index d59658e2af..7affd4aab5 100644 --- a/compiler/GHC/Cmm/Graph.hs +++ b/compiler/GHC/Cmm/Graph.hs @@ -78,7 +78,7 @@ flattenCmmAGraph id (stmts_t, tscope) = CmmGraph { g_entry = id, g_graph = GMany NothingO body NothingO } where - body = foldr addBlock emptyBody $ flatten id stmts_t tscope [] + body = foldr addBlock emptyBody $ flatten id stmts_t tscope [] -- -- -- flatten: given an entry label and a CmmAGraph, make a list of blocks. |