[commit: hoopl] simonmar-hoopl-opt: Generalise blockGraph (98b22db)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/hoopl

On branch  : simonmar-hoopl-opt

http://hackage.haskell.org/trac/ghc/changeset/98b22db083aa6f21e46fee047e0b8c9795624401

>---------------------------------------------------------------

commit 98b22db083aa6f21e46fee047e0b8c9795624401
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Mar 15 13:16:07 2012 +0000

    Generalise blockGraph

>---------------------------------------------------------------

 src/Compiler/Hoopl/Util.hs |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/src/Compiler/Hoopl/Util.hs b/src/Compiler/Hoopl/Util.hs
index c1b0369..dba145c 100644
--- a/src/Compiler/Hoopl/Util.hs
+++ b/src/Compiler/Hoopl/Util.hs
@@ -62,8 +62,10 @@ catNodeCOGraph f (GMany (JustO (BlockOC b n)) body x)
   = GMany NothingO (addBlock (BlockCC f b n) body) x
 
 
-blockGraph :: NonLocal n => Block n O x -> Graph n O x
+blockGraph :: NonLocal n => Block n e x -> Graph n e x
+blockGraph b@(BlockCO {}) = gUnitCO b
 blockGraph b@(BlockOC {}) = gUnitOC b
+blockGraph b@(BlockCC {}) = gUnitCC b
 blockGraph   (BNil  {})   = GNil
 blockGraph b@(BMiddle {}) = gUnitOO b
 blockGraph b@(BCat {})    = gUnitOO b