X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FUniqSupply.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FUniqSupply.lhs;h=4b83b52a610b005ae6a2330af0b9a327e07326a1;hb=be33dbc967b4915cfdb0307ae1b7ae3cee651b8c;hp=23bd2c051e9e76c74daad8a8b06b5625031e5fb0;hpb=c29022c49449b7d8862dcc2259e16cafe9461945;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/UniqSupply.lhs b/ghc/compiler/basicTypes/UniqSupply.lhs
index 23bd2c0..4b83b52 100644
--- a/ghc/compiler/basicTypes/UniqSupply.lhs
+++ b/ghc/compiler/basicTypes/UniqSupply.lhs
@@ -24,10 +24,12 @@ module UniqSupply (
 import Unique
 import Util
 
-
 import GlaExts
-import IOBase	( IO(..), IOResult(..) )
-import PrelBase ( Char(..) )
+
+#if __GLASGOW_HASKELL__ < 301
+import IOBase		( IO(..), IOResult(..) )
+#else
+#endif
 
 w2i x = word2Int# x
 i2w x = int2Word# x