diff options
Diffstat (limited to 'compiler/GHC/Cmm/Dataflow/Block.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Dataflow/Block.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/Dataflow/Block.hs b/compiler/GHC/Cmm/Dataflow/Block.hs index f3876e241c..1927ae4a5a 100644 --- a/compiler/GHC/Cmm/Dataflow/Block.hs +++ b/compiler/GHC/Cmm/Dataflow/Block.hs @@ -17,6 +17,7 @@ module GHC.Cmm.Dataflow.Block , blockCons , blockFromList , blockJoin + , blockJoinList , blockJoinHead , blockJoinTail , blockSnoc @@ -133,6 +134,9 @@ blockJoinTail b t = b `cat` BlockOC BNil t blockJoin :: n C O -> Block n O O -> n O C -> Block n C C blockJoin f b t = BlockCC f b t +blockJoinList :: n C O -> [n O O] -> n O C -> Block n C C +blockJoinList f b t = BlockCC f (blockFromList b) t + blockAppend :: Block n e O -> Block n O x -> Block n e x blockAppend = cat |