From f11349b8018da9d15bad37d2d4d7f22d87af0046 Mon Sep 17 00:00:00 2001
From: lewie <unknown>
Date: Fri, 26 Apr 2002 15:39:50 +0000
Subject: [PATCH] [project @ 2002-04-26 15:39:50 by lewie] Fix broken def of
 fixST.

---
 Control/Monad/ST/Lazy.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Control/Monad/ST/Lazy.hs b/Control/Monad/ST/Lazy.hs
index ea30d20..43c2de7 100644
--- 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
 
 -- ---------------------------------------------------------------------------
-- 
1.7.10.4