[project @ 2002-04-26 15:39:50 by lewie]

Fix broken def of fixST.

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
 
 -- ---------------------------------------------------------------------------