use '==' consistently rather than '->' in examples

[ghc-base.git] / GHC / MVar.hs

diff --git a/GHC/MVar.hs b/GHC/MVar.hs
index 98ecd45..348ae51 100644 (file)
--- 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)