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

diff --git a/GHC/MVar.hs b/GHC/MVar.hs
index 98ecd45..348ae51 100644
--- a/GHC/MVar.hs
+++ b/GHC/MVar.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS_GHC -fno-implicit-prelude -funbox-strict-fields #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
 -- |
@@ -29,7 +29,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)