[commit: dph] master: Hacks on reverse example -- it's still broken. (a57a309)

[Ben Lippmeier]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/a57a3093e973498ba6cc307b721be9ffdaa12946

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

commit a57a3093e973498ba6cc307b721be9ffdaa12946
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Fri Apr 15 15:17:55 2011 +1000

    Hacks on reverse example -- it's still broken.

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

 dph-examples/imaginary/Reverse/dph/Main.hs         |    1 +
 .../imaginary/Reverse/dph/ReverseVectorised.hs     |    3 ++-
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/dph-examples/imaginary/Reverse/dph/Main.hs b/dph-examples/imaginary/Reverse/dph/Main.hs
index e1b3242..ea1b886 100644
--- a/dph-examples/imaginary/Reverse/dph/Main.hs
+++ b/dph-examples/imaginary/Reverse/dph/Main.hs
@@ -33,6 +33,7 @@ run "vectorised" count
          $  let  arr'    = RD.treeReversePA arr
             in   arr' `seq` return arr'
                 
+        print arrReversed
         putStr  $ prettyTime tElapsed
 
 run "vector" count
diff --git a/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs b/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs
index a4ace75..48bad33 100644
--- a/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs
+++ b/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs
@@ -26,4 +26,5 @@ treeReverse xx
                 half    = len `div` 2
                 s1      = sliceP 0    half xx
                 s2      = sliceP half len  xx           
-          in    treeReverse s2 +:+ treeReverse s1
+          in    concatP (mapP treeReverse [: s2, s1 :])
+