diff options
Diffstat (limited to 'libraries/base/Control/Concurrent/QSem.hs')
| -rw-r--r-- | libraries/base/Control/Concurrent/QSem.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/base/Control/Concurrent/QSem.hs b/libraries/base/Control/Concurrent/QSem.hs index ea396255a4..133d6e2ab8 100644 --- a/libraries/base/Control/Concurrent/QSem.hs +++ b/libraries/base/Control/Concurrent/QSem.hs @@ -1,6 +1,5 @@ {-# LANGUAGE Safe #-} {-# LANGUAGE BangPatterns #-} -{-# OPTIONS_GHC -funbox-strict-fields #-} ----------------------------------------------------------------------------- -- | @@ -39,7 +38,7 @@ import Data.Maybe -- -- is safe; it never loses a unit of the resource. -- -data QSem = QSem !(MVar (Int, [MVar ()], [MVar ()])) +newtype QSem = QSem (MVar (Int, [MVar ()], [MVar ()])) -- The semaphore state (i, xs, ys): -- |