summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-22 22:42:01 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-22 22:42:01 +0200
commite7cadcd8dee8c2e79e338f67cb27b675aba6bac5 (patch)
treec0c470e5a0f19b6d53e6772b079197442bb9bf57 /src/Plugins
parent8e87d8671c06eb5acca3a4c92e569e1dba253160 (diff)
parenta05c57f7aed141a8d6dc9038be177712be432b9d (diff)
downloadxmobar-e7cadcd8dee8c2e79e338f67cb27b675aba6bac5.tar.gz
xmobar-e7cadcd8dee8c2e79e338f67cb27b675aba6bac5.tar.bz2
Merge remote-tracking branch 'jrk/dbusstuff' into jrk
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/BufferedPipeReader.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/BufferedPipeReader.hs b/src/Plugins/BufferedPipeReader.hs
index 04512e4..a2ea2a3 100644
--- a/src/Plugins/BufferedPipeReader.hs
+++ b/src/Plugins/BufferedPipeReader.hs
@@ -60,7 +60,7 @@ instance Exec BufferedPipeReader where
writer tc ts otb = do
(to, tg, dt, ntb) <- update
cb dt
- when tg $ putMVar signal Reveal
+ when tg $ putMVar signal $ Reveal 0
when (to /= 0) $ sfork $ reset to tg ts ntb
writer tc ts ntb
@@ -80,5 +80,5 @@ instance Exec BufferedPipeReader where
reset to tg ts tb = do
threadDelay ( to * 100 * 1000 )
readTVarIO tb >>= \b -> when b $ do
- when tg $ putMVar signal Hide
+ when tg $ putMVar signal $ Hide 0
atomically (readTVar ts) >>= maybe (return ()) cb