Repository : ssh://darcs.haskell.org//srv/darcs/packages/hoopl On branch : simonmar-hoopl-opt
http://hackage.haskell.org/trac/ghc/changeset/3679192421dc50d3e1a78152658abb5120a5dd60 >--------------------------------------------------------------- commit 3679192421dc50d3e1a78152658abb5120a5dd60 Author: Simon Marlow <[email protected]> Date: Thu Jan 26 16:01:28 2012 +0000 indentation only >--------------------------------------------------------------- src/Compiler/Hoopl/Util.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Compiler/Hoopl/Util.hs b/src/Compiler/Hoopl/Util.hs index e4f9cbe..c1b0369 100644 --- a/src/Compiler/Hoopl/Util.hs +++ b/src/Compiler/Hoopl/Util.hs @@ -36,9 +36,9 @@ gUnitCO b = GMany NothingO emptyBody (JustO b) gUnitCC b = GMany NothingO (addBlock b emptyBody) NothingO -catGraphNodeOO :: Graph n e O -> n O O -> Graph n e O +catGraphNodeOO :: Graph n e O -> n O O -> Graph n e O catGraphNodeOC :: NonLocal n => Graph n e O -> n O C -> Graph n e C -catNodeOOGraph :: n O O -> Graph n O x -> Graph n O x +catNodeOOGraph :: n O O -> Graph n O x -> Graph n O x catNodeCOGraph :: NonLocal n => n C O -> Graph n O x -> Graph n C x catGraphNodeOO GNil n = gUnitOO $ BMiddle n _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
