[commit: dph] master: Fix bug with slicePA. The second argument should be the slice length, not the last index of the slice. (e972028)

[Ben Lippmeier]

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

On branch  : master

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

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

commit e97202897776ea5efe627ec6d4ef0aef2c9b0d85
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Tue May 3 16:42:00 2011 +1000

    Fix bug with slicePA. The second argument should be the slice length, not the last index of the slice.

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

 .../Data/Array/Parallel/Lifted/Combinators.hs      |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dph-common/Data/Array/Parallel/Lifted/Combinators.hs b/dph-common/Data/Array/Parallel/Lifted/Combinators.hs
index 75b3905..d17d962 100644
--- a/dph-common/Data/Array/Parallel/Lifted/Combinators.hs
+++ b/dph-common/Data/Array/Parallel/Lifted/Combinators.hs
@@ -379,8 +379,8 @@ indexedPA = closure1 indexedPA_v indexedPA_l
 -- slice ----------------------------------------------------------------------
 slicePA_v :: PA a => Int -> Int -> PArray a -> PArray a
 {-# INLINE slicePA_v #-}
-slicePA_v (I# from) (I# to) xs 
-  = extractPA# xs from (to -# from) 
+slicePA_v (I# from) (I# len) xs 
+  = extractPA# xs from len 
 
 -- TODO: Can we define this in terms of extractPA?
 slicePA_l :: PA a => PArray Int -> PArray Int -> PArray (PArray a) -> PArray (PArray a)