[project @ 2002-10-01 16:29:47 by ross]

[haskell-directory.git] / Control / Monad / ST / Lazy.hs

diff --git a/Control/Monad/ST/Lazy.hs b/Control/Monad/ST/Lazy.hs
index 085075b..ffbb1af 100644 (file)
--- a/Control/Monad/ST/Lazy.hs
+++ b/Control/Monad/ST/Lazy.hs
@@ -36,6 +36,8 @@ module Control.Monad.ST.Lazy (
 
 import Prelude
 
+import Control.Monad.Fix
+
 #ifdef __GLASGOW_HASKELL__
 import qualified Control.Monad.ST as ST
 import qualified GHC.ST
@@ -86,6 +88,9 @@ fixST m = ST (\ s ->
                   (r,s'))
 #endif
 
+instance MonadFix (ST s) where
+       mfix = fixST
+
 -- ---------------------------------------------------------------------------
 -- Strict <--> Lazy