diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-05 18:01:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-06 14:38:35 +0100 |
| commit | 8d87b5bf45082f29eefc911df1378fad327bf6fa (patch) | |
| tree | 909bcb62f16d957cb14fbc65236db6e13f6c4e06 /libraries/base/GHC/MVar.hs | |
| parent | f3c261bcc9dfec69abf0eff08758b4f0b126943e (diff) | |
| download | haskell-8d87b5bf45082f29eefc911df1378fad327bf6fa.tar.gz | |
Re-jig SOURCE imports
* Do not have have an hs-boot file for Data.Typeable
* Instead make all the loops go through
GHC.Err (just a couple of magic functions)
GHC.Exception (some non-exceptional functions)
The main idea is
a) don't involve classes in the hs-boot world
b) loop through error cases where performance doesn't matter
c) be careful not to SOURCE import things that are bottom,
unless MkCore knows about them in eRROR_IDS, so that we
see their strictness
Diffstat (limited to 'libraries/base/GHC/MVar.hs')
| -rw-r--r-- | libraries/base/GHC/MVar.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libraries/base/GHC/MVar.hs b/libraries/base/GHC/MVar.hs index cd2ca33dd8..b256c592f9 100644 --- a/libraries/base/GHC/MVar.hs +++ b/libraries/base/GHC/MVar.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE Unsafe #-} +{-# LANGUAGE Unsafe, DeriveDataTypeable #-} {-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-} {-# OPTIONS_GHC -funbox-strict-fields #-} {-# OPTIONS_HADDOCK hide #-} @@ -32,8 +32,9 @@ module GHC.MVar ( import GHC.Base import Data.Maybe +import Data.Typeable -data MVar a = MVar (MVar# RealWorld a) +data MVar a = MVar (MVar# RealWorld a) deriving( Typeable ) {- ^ An 'MVar' (pronounced \"em-var\") is a synchronising variable, used for communication between concurrent threads. It can be thought of |