[commit: hoopl] simonmar-hoopl-opt: indentation only (3679192)
Simon Marlow
marlowsd at gmail.com
Thu Jan 26 17:03:20 CET 2012
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 <marlowsd at gmail.com>
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
More information about the Cvs-libraries
mailing list