X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FMVar.hs;h=8c653dca6a0cdf038bcb59b00b7e29cc17e71405;hb=41e8fba828acbae1751628af50849f5352b27873;hp=98ecd45370973e1c886d789ee9fc33cbfa4d1a83;hpb=d2063b5b0be014545b21819172c87756efcb0b0c;p=ghc-base.git

diff --git a/GHC/MVar.hs b/GHC/MVar.hs
index 98ecd45..8c653dc 100644
--- a/GHC/MVar.hs
+++ b/GHC/MVar.hs
@@ -1,5 +1,7 @@
-{-# OPTIONS_GHC -fno-implicit-prelude -funbox-strict-fields #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
+{-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.MVar
@@ -29,7 +31,7 @@ module GHC.MVar (
   ) where
 
 import GHC.Base
-import GHC.IO
+import GHC.IO()   -- instance Monad IO
 import Data.Maybe
 
 data MVar a = MVar (MVar# RealWorld a)