dph-lifted-copy: sliceP now wants the slice length as the second argument
authorBen Lippmeier <benl@ouroborus.net>
Wed, 1 Feb 2012 04:37:33 +0000 (15:37 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Wed, 1 Feb 2012 04:37:33 +0000 (15:37 +1100)
dph-lifted-copy/Data/Array/Parallel.hs

index 44a297e..2cb0bf0 100644 (file)
@@ -411,10 +411,10 @@ replicateP n e  = runST (do
 --  cycle                     -- parallel arrays must be finite
 
 takeP   :: Int -> [:a:] -> [:a:]
-takeP n  = sliceP 0 (n - 1)
+takeP n  = sliceP 0 n
 
 dropP     :: Int -> [:a:] -> [:a:]
-dropP n a  = sliceP n (lengthP a - 1) a
+dropP n a  = sliceP n (lengthP a - n) a
 
 splitAtP      :: Int -> [:a:] -> ([:a:],[:a:])
 splitAtP n xs  = (takeP n xs, dropP n xs)