X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FMonad%2FST%2FLazy.hs;h=adaca1abf181c8496f8bb9d6850f8b3ea1a26799;hb=f7a485978f04e84b086f1974b88887cc72d832d0;hp=bb56e28f5e7e7f52b2c6d71c99978e325c4474db;hpb=1e1907fb42b74de4feb5ac8af10846db31e56edb;p=ghc-base.git

diff --git a/Control/Monad/ST/Lazy.hs b/Control/Monad/ST/Lazy.hs
index bb56e28..adaca1a 100644
--- a/Control/Monad/ST/Lazy.hs
+++ b/Control/Monad/ST/Lazy.hs
@@ -1,15 +1,13 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  Control.Monad.ST.Lazy
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
 -- Portability :  non-portable (requires universal quantification for runST)
 --
--- $Id: Lazy.hs,v 1.4 2002/01/02 14:40:09 simonmar Exp $
---
 -- This module presents an identical interface to Control.Monad.ST,
 -- but the underlying implementation of the state thread is lazy.
 --
@@ -73,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
 
 -- ---------------------------------------------------------------------------