From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Thu, 22 Feb 2007 03:24:05 +0000 (+0000)
Subject: Fixed PArr.dropP
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=06427ada7eac4e6686fe0e37b16c7385f0ea4822;p=haskell-directory.git

Fixed PArr.dropP
- Thanks to Audrey Tang for the bug report
---

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)