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

diff --git a/GHC/MVar.hs b/GHC/MVar.hs
index 98ecd45..67fa7c6 100644
--- a/GHC/MVar.hs
+++ b/GHC/MVar.hs
@@ -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)