From 06427ada7eac4e6686fe0e37b16c7385f0ea4822 Mon Sep 17 00:00:00 2001 From: Manuel M T Chakravarty Date: Thu, 22 Feb 2007 03:24:05 +0000 Subject: [PATCH] Fixed PArr.dropP - Thanks to Audrey Tang for the bug report --- GHC/PArr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GHC/PArr.hs b/GHC/PArr.hs index bb031c0..90f903c 100644 --- a/GHC/PArr.hs +++ b/GHC/PArr.hs @@ -245,7 +245,7 @@ takeP :: Int -> [:a:] -> [:a:] takeP n = sliceP 0 (n - 1) dropP :: Int -> [:a:] -> [:a:] -dropP n a = sliceP (n - 1) (lengthP a - 1) a +dropP n a = sliceP n (lengthP a - 1) a splitAtP :: Int -> [:a:] -> ([:a:],[:a:]) splitAtP n xs = (takeP n xs, dropP n xs) -- 1.7.10.4