[commit: base] : Added UNPACK to emLock in GHC.Event.Manager Manager datatype. (1307e97)

[Johan Tibell]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/1307e97990d588db5dfcce89d734e32bf7bd4d02

>---------------------------------------------------------------

commit 1307e97990d588db5dfcce89d734e32bf7bd4d02
Author: Andreas Voellmy <andreas.voellmy at gmail.com>
Date:   Mon Jan 7 21:37:58 2013 -0500

    Added UNPACK to emLock in GHC.Event.Manager Manager datatype.

>---------------------------------------------------------------

 GHC/Event/Manager.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs
index 8fc42e5..4abadca 100644
--- a/GHC/Event/Manager.hs
+++ b/GHC/Event/Manager.hs
@@ -118,7 +118,7 @@ data EventManager = EventManager
     , emUniqueSource :: {-# UNPACK #-} !UniqueSource
     , emControl      :: {-# UNPACK #-} !Control
     , emOneShot      :: !Bool
-    , emLock         :: MVar ()
+    , emLock         :: {-# UNPACK #-} !(MVar ())
     }
 
 -- must be power of 2