-{-# OPTIONS_GHC -fno-implicit-prelude -funbox-strict-fields #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
+{-# OPTIONS_GHC -funbox-strict-fields #-}
{-# OPTIONS_HADDOCK hide #-}
+
-----------------------------------------------------------------------------
-- |
-- 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)