From: simonpj <unknown>
Date: Fri, 6 Jan 2006 15:46:09 +0000 (+0000)
Subject: [project @ 2006-01-06 15:46:09 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~4
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=42184f4c08e768b391c3d32f65e668fca0eb05a3;p=haskell-directory.git

[project @ 2006-01-06 15:46:09 by simonpj]
Fix one-char typo in scanl1P
---

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