diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
commit | bab7e83221468905b76e28bb123ebe26e146b97b (patch) | |
tree | 19b3bf6d56f936a81c09be7b552c3a8616d45e27 /Assistant/DaemonStatus.hs | |
parent | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff) |
cleanup daemonStatus accessors
Diffstat (limited to 'Assistant/DaemonStatus.hs')
-rw-r--r-- | Assistant/DaemonStatus.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index 6525247eb..1706c0a57 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -24,11 +24,12 @@ import Data.Time import System.Locale import qualified Data.Map as M -daemonStatus :: Assistant DaemonStatus -daemonStatus = getDaemonStatus <<~ daemonStatusHandle +-- TODO remove this +getDaemonStatusOld :: DaemonStatusHandle -> IO DaemonStatus +getDaemonStatusOld = atomically . readTMVar -getDaemonStatus :: DaemonStatusHandle -> IO DaemonStatus -getDaemonStatus = atomically . readTMVar +getDaemonStatus :: Assistant DaemonStatus +getDaemonStatus = (atomically . readTMVar) <<~ daemonStatusHandle modifyDaemonStatus_ :: DaemonStatusHandle -> (DaemonStatus -> DaemonStatus) -> IO () modifyDaemonStatus_ dstatus a = modifyDaemonStatus dstatus $ \s -> (a s, ()) |