[commit: ghc] master: Rename BTail -> BCons, BHead -> BSnoc (7d7c284)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7d7c284bbc7204ee430e0717e8883e0d38035bb8

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

commit 7d7c284bbc7204ee430e0717e8883e0d38035bb8
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Fri Jul 6 11:21:33 2012 +0100

    Rename BTail -> BCons, BHead -> BSnoc

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

 compiler/cmm/Hoopl/Dataflow.hs |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/cmm/Hoopl/Dataflow.hs b/compiler/cmm/Hoopl/Dataflow.hs
index 9745eac..e35beb9 100644
--- a/compiler/cmm/Hoopl/Dataflow.hs
+++ b/compiler/cmm/Hoopl/Dataflow.hs
@@ -173,8 +173,8 @@ arfGraph pass at FwdPass { fp_lattice = lattice,
 
     block (BMiddle n)     f = node n f
     block (BCat b1 b2)    f = (block b1 `cat` block b2) f
-    block (BHead h n)     f = (block h  `cat` node n) f
-    block (BTail n t)     f = (node  n  `cat` block t) f
+    block (BSnoc h n)     f = (block h  `cat` node n) f
+    block (BCons n t)     f = (node  n  `cat` block t) f
 
     {-# INLINE node #-}
     node :: forall e x . (ShapeLifter e x)
@@ -272,8 +272,8 @@ analyzeFwd FwdPass { fp_lattice = lattice,
 
     block (BMiddle n)     f = mtr n f
     block (BCat b1 b2)    f = (block b1 `cat` block b2) f
-    block (BHead h n)     f = (block h  `cat` mtr n) f
-    block (BTail n t)     f = (mtr  n   `cat` block t) f
+    block (BSnoc h n)     f = (block h  `cat` mtr n) f
+    block (BCons n t)     f = (mtr  n   `cat` block t) f
 
     {-# INLINE cat #-}
     cat :: forall f1 f2 f3 . (f1 -> f2) -> (f2 -> f3) -> (f1 -> f3)
@@ -357,8 +357,8 @@ analyzeBwd BwdPass { bp_lattice = lattice,
 
     block (BMiddle n)     f = mtr n f
     block (BCat b1 b2)    f = (block b1 `cat` block b2) f
-    block (BHead h n)     f = (block h  `cat` mtr n) f
-    block (BTail n t)     f = (mtr  n   `cat` block t) f
+    block (BSnoc h n)     f = (block h  `cat` mtr n) f
+    block (BCons n t)     f = (mtr  n   `cat` block t) f
 
     {-# INLINE cat #-}
     cat :: forall f1 f2 f3 . (f2 -> f3) -> (f1 -> f2) -> (f1 -> f3)
@@ -439,8 +439,8 @@ arbGraph pass at BwdPass { bp_lattice  = lattice,
 
     block (BMiddle n)     f = node n f
     block (BCat b1 b2)    f = (block b1 `cat` block b2) f
-    block (BHead h n)     f = (block h  `cat` node n) f
-    block (BTail n t)     f = (node  n  `cat` block t) f
+    block (BSnoc h n)     f = (block h  `cat` node n) f
+    block (BCons n t)     f = (node  n  `cat` block t) f
 
     {-# INLINE node #-}
     node n f