[project @ 2002-07-16 16:08:58 by ross]
[packages/old-locale.git] / Control / Monad / ST.hs
index 59b303f..7341cef 100644 (file)
@@ -35,6 +35,10 @@ import Prelude
 import Control.Monad.Fix
 import Data.Dynamic
 
+#ifdef __HUGS__
+import Hugs.ST
+#endif
+
 #ifdef __GLASGOW_HASKELL__
 import GHC.ST
 import GHC.Base                ( unsafeCoerce#, RealWorld )