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