Commit f182e7d9 authored by AndreasVoellmy's avatar AndreasVoellmy Committed by tibbe

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

parent cbe3c39e
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment