-{-# OPTIONS_GHC -fno-implicit-prelude -funbox-strict-fields #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude -funbox-strict-fields #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
-- |
) where
import GHC.Base
-import GHC.IO
+import GHC.IO() -- instance Monad IO
import Data.Maybe
data MVar a = MVar (MVar# RealWorld a)