diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-08-20 23:39:58 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-08-20 23:39:58 +0000 |
| commit | 18328c7c49369cf61e70ab3d7dac48816de28384 (patch) | |
| tree | c92575b66c673cfb4814edf6dd2cd65ad839ca29 /libraries/base/Control/Concurrent/QSemN.hs | |
| parent | f050ec47c4291d7d1a85c9b5e78f6bf8639c47c0 (diff) | |
| download | haskell-18328c7c49369cf61e70ab3d7dac48816de28384.tar.gz | |
Fix more warnings
Diffstat (limited to 'libraries/base/Control/Concurrent/QSemN.hs')
| -rw-r--r-- | libraries/base/Control/Concurrent/QSemN.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/Control/Concurrent/QSemN.hs b/libraries/base/Control/Concurrent/QSemN.hs index ed96a3c0bc..014a72c861 100644 --- a/libraries/base/Control/Concurrent/QSemN.hs +++ b/libraries/base/Control/Concurrent/QSemN.hs @@ -36,8 +36,8 @@ INSTANCE_TYPEABLE0(QSemN,qSemNTc,"QSemN") -- |Build a new 'QSemN' with a supplied initial quantity. newQSemN :: Int -> IO QSemN -newQSemN init = do - sem <- newMVar (init,[]) +newQSemN initial = do + sem <- newMVar (initial, []) return (QSemN sem) -- |Wait for the specified quantity to become available |