[project @ 2005-07-10 23:01:24 by ross]

doc fix from Remi Turk

MERGE to STABLE

diff --git a/Control/Monad/Fix.hs b/Control/Monad/Fix.hs
index c2b1669..a24d9af 100644 (file)
--- a/Control/Monad/Fix.hs
+++ b/Control/Monad/Fix.hs
@@ -37,7 +37,7 @@ fix f = let x = f x in x
 --     @'mfix' ('return' . h)  =  'return' ('fix' h)@
 --
 -- [/left shrinking/ (or /tightening/)]
---     @'mfix' (\\x -> a >>= \\y -> f x y)  =  \\y -> 'mfix' (\\x -> f x y)@
+--     @'mfix' (\\x -> a >>= \\y -> f x y)  =  a >>= \\y -> 'mfix' (\\x -> f x y)@
 --
 -- [/sliding/]
 --     @'mfix' ('Control.Monad.liftM' h . f)  =  'Control.Monad.liftM' h ('mfix' (f . h))@,