[project @ 2002-07-16 16:08:58 by ross]

[ghc-base.git] / Data / STRef / Lazy.hs

diff --git a/Data/STRef/Lazy.hs b/Data/STRef/Lazy.hs
index daa48a0..b05fb83 100644 (file)
--- a/Data/STRef/Lazy.hs
+++ b/Data/STRef/Lazy.hs
@@ -21,6 +21,9 @@ module Data.STRef.Lazy (
  ) where
 
 import Control.Monad.ST.Lazy
+#ifdef __HUGS__
+import Hugs.LazyST as ST
+#else
 import qualified Data.STRef as ST
 import qualified Control.Monad.ST as ST
 
@@ -34,4 +37,4 @@ readSTRef  = strictToLazyST . ST.readSTRef
 writeSTRef r a = strictToLazyST (ST.writeSTRef r a)
 modifySTRef r f = strictToLazyST (ST.modifySTRef r f)
 
-
+#endif  /* __HUGS__ */