projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
24d2d69
)
[project @ 2006-01-06 15:46:09 by simonpj]
author
simonpj
<unknown>
Fri, 6 Jan 2006 15:46:09 +0000
(15:46 +0000)
committer
simonpj
<unknown>
Fri, 6 Jan 2006 15:46:09 +0000
(15:46 +0000)
Fix one-char typo in scanl1P
GHC/PArr.hs
patch
|
blob
|
history
diff --git
a/GHC/PArr.hs
b/GHC/PArr.hs
index
7a5bd43
..
bb031c0
100644
(file)
--- 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