X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FMVar.hs;h=67fa7c6127d84a98ce6c03b0ef5e707ad4528eb3;hb=8afc9fecd586d3c4f7ef9c69fb1686a79e5f441d;hp=98ecd45370973e1c886d789ee9fc33cbfa4d1a83;hpb=0194bd1aa23f3c93c9fea3f6acdf5b968c024886;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)