diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-30 19:51:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-30 19:51:16 -0400 |
| commit | d684c2f53135f51872c112732acc4079b2d4693d (patch) | |
| tree | d7a6895a1b2874d436fb094625174859c325bac8 /Assistant/Types/DaemonStatus.hs | |
| parent | 0a588575977bc74a61917801477e03da3897507d (diff) | |
convert TMVars that are never left empty into TVars
This is probably more efficient, and it avoids mistakenly leaving them
empty.
Diffstat (limited to 'Assistant/Types/DaemonStatus.hs')
| -rw-r--r-- | Assistant/Types/DaemonStatus.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Types/DaemonStatus.hs b/Assistant/Types/DaemonStatus.hs index 8bb66261e..0e52d3477 100644 --- a/Assistant/Types/DaemonStatus.hs +++ b/Assistant/Types/DaemonStatus.hs @@ -86,8 +86,7 @@ data DaemonStatus = DaemonStatus type TransferMap = M.Map Transfer TransferInfo -{- This TMVar is never left empty, so accessing it will never block. -} -type DaemonStatusHandle = TMVar DaemonStatus +type DaemonStatusHandle = TVar DaemonStatus newDaemonStatus :: IO DaemonStatus newDaemonStatus = DaemonStatus |