X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FUniqSupply.lhs;h=87f3deed47ec9949da76996b774ce5547893570f;hb=5e54b553bbb112167412ee9164135d56b06f5721;hp=cb1a1fc69f11effb153baa990843575507a99a69;hpb=893a3c0ad6c39caf71ac28af900733513e1f153e;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/UniqSupply.lhs b/compiler/basicTypes/UniqSupply.lhs
index cb1a1fc..87f3dee 100644
--- a/compiler/basicTypes/UniqSupply.lhs
+++ b/compiler/basicTypes/UniqSupply.lhs
@@ -30,8 +30,11 @@ import FastTypes
 
 import MonadUtils
 import Control.Monad
-import Control.Monad.Fix
+#if __GLASGOW_HASKELL__ >= 611
+import GHC.IO (unsafeDupableInterleaveIO)
+#else
 import GHC.IOBase (unsafeDupableInterleaveIO)
+#endif
 
 \end{code}