diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-05-23 20:02:38 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-05-23 20:02:38 +0000 |
| commit | f7aba14294b4a4ffbee3e3bbf59af3c19e6156ca (patch) | |
| tree | d1b75d80ce7539cfa76325f8104048e377946596 /libraries/base/Control/Concurrent | |
| parent | 603dc2cb9ce1ba293f9d98be04f6765190011402 (diff) | |
| download | haskell-f7aba14294b4a4ffbee3e3bbf59af3c19e6156ca.tar.gz | |
Document that the initial quantity for QSem and QSemN must be >= 0
Diffstat (limited to 'libraries/base/Control/Concurrent')
| -rw-r--r-- | libraries/base/Control/Concurrent/QSem.hs | 3 | ||||
| -rw-r--r-- | libraries/base/Control/Concurrent/QSemN.hs | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/libraries/base/Control/Concurrent/QSem.hs b/libraries/base/Control/Concurrent/QSem.hs index d069b8956f..cc78470261 100644 --- a/libraries/base/Control/Concurrent/QSem.hs +++ b/libraries/base/Control/Concurrent/QSem.hs @@ -39,7 +39,8 @@ newtype QSem = QSem (MVar (Int, [MVar ()])) INSTANCE_TYPEABLE0(QSem,qSemTc,"QSem") --- |Build a new 'QSem' +-- |Build a new 'QSem' with a supplied initial quantity. +-- The initial quantity must be at least 0. newQSem :: Int -> IO QSem newQSem initial = if initial < 0 diff --git a/libraries/base/Control/Concurrent/QSemN.hs b/libraries/base/Control/Concurrent/QSemN.hs index 7ee6142e94..991b0d562e 100644 --- a/libraries/base/Control/Concurrent/QSemN.hs +++ b/libraries/base/Control/Concurrent/QSemN.hs @@ -35,6 +35,7 @@ newtype QSemN = QSemN (MVar (Int,[(Int,MVar ())])) INSTANCE_TYPEABLE0(QSemN,qSemNTc,"QSemN") -- |Build a new 'QSemN' with a supplied initial quantity. +-- The initial quantity must be at least 0. newQSemN :: Int -> IO QSemN newQSemN initial = if initial < 0 |