[commit: dph] master: Fix reverse example (d6f41da)

[Ben Lippmeier]

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

On branch  : master

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

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

commit d6f41da37f75169382cfdaad75b9c36716807ee2
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Tue May 3 16:51:46 2011 +1000

    Fix reverse example

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

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

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