[project @ 2002-04-26 15:39:50 by lewie]
authorlewie <unknown>
Fri, 26 Apr 2002 15:39:50 +0000 (15:39 +0000)
committerlewie <unknown>
Fri, 26 Apr 2002 15:39:50 +0000 (15:39 +0000)
Fix broken def of fixST.

Control/Monad/ST/Lazy.hs

index ea30d20..43c2de7 100644 (file)
@@ -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
 
 -- ---------------------------------------------------------------------------