X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPArr.hs;h=bb031c00a62397fd6f0c156cb5edea1849b3a68c;hb=42184f4c08e768b391c3d32f65e668fca0eb05a3;hp=7a5bd4310080b4a93b9bd491974b80c97ad48fba;hpb=24d2d69c5dc1ba12c30c3858b4e32fe114d356a2;p=haskell-directory.git

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index 7a5bd43..bb031c0 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -216,7 +216,7 @@ scanlP     :: (a -> b -> a) -> a -> [:b:] -> [:a:]
 scanlP f z  = fst . loop (scanEFL (flip f)) z
 
 scanl1P        :: (a -> a -> a) -> [:a:] -> [:a:]
-acanl1P f [::]  = error "Prelude.scanl1P: empty array"
+scanl1P f [::]  = error "Prelude.scanl1P: empty array"
 scanl1P f a     = fst $ loopFromTo 1 (lengthP a - 1) (scanEFL f) (a!:0) a
 
 foldrP :: (a -> b -> b) -> b -> [:a:] -> b