X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FSTRef%2FLazy.hs;h=d7e028ce351695abdada0024e29eff2377e3860b;hb=99a329d9b272925dcdf474ce2369e9421b51e51c;hp=b05fb83aa50b604d7d7130fd5aa92210a5a73660;hpb=9812e0a321ec0ed8f9e53eb2febfb14c79564200;p=ghc-base.git

diff --git a/Data/STRef/Lazy.hs b/Data/STRef/Lazy.hs
index b05fb83..d7e028c 100644
--- 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__ */