[project @ 2005-01-28 23:33:57 by krasimir]

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

diff --git a/Data/STRef/Lazy.hs b/Data/STRef/Lazy.hs
index b05fb83..d7e028c 100644 (file)
--- a/Data/STRef/Lazy.hs
+++ b/Data/STRef/Lazy.hs
@@ -21,11 +21,7 @@ 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
 
 newSTRef    :: a -> ST s (ST.STRef s a)
 readSTRef   :: ST.STRef s a -> ST s a
@@ -36,5 +32,3 @@ newSTRef   = strictToLazyST . ST.newSTRef
 readSTRef  = strictToLazyST . ST.readSTRef
 writeSTRef r a = strictToLazyST (ST.writeSTRef r a)
 modifySTRef r f = strictToLazyST (ST.modifySTRef r f)
-
-#endif  /* __HUGS__ */