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:
746ef6a
)
[project @ 2002-04-26 15:39:50 by lewie]
author
lewie
<unknown>
Fri, 26 Apr 2002 15:39:50 +0000
(15:39 +0000)
committer
lewie
<unknown>
Fri, 26 Apr 2002 15:39:50 +0000
(15:39 +0000)
Fix broken def of fixST.
Control/Monad/ST/Lazy.hs
patch
|
blob
|
history
diff --git
a/Control/Monad/ST/Lazy.hs
b/Control/Monad/ST/Lazy.hs
index
ea30d20
..
43c2de7
100644
(file)
--- a/
Control/Monad/ST/Lazy.hs
+++ b/
Control/Monad/ST/Lazy.hs
@@
-71,9
+71,9
@@
fixST :: (a -> ST s a) -> ST s a
fixST m = ST (\ s ->
let
ST m_r = m r
- (r,s) = m_r s
+ (r,s') = m_r s
in
- (r,s))
+ (r,s'))
#endif
-- ---------------------------------------------------------------------------