diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-22 22:42:01 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-22 22:42:01 +0200 |
| commit | e7cadcd8dee8c2e79e338f67cb27b675aba6bac5 (patch) | |
| tree | c0c470e5a0f19b6d53e6772b079197442bb9bf57 /src/Plugins/BufferedPipeReader.hs | |
| parent | 8e87d8671c06eb5acca3a4c92e569e1dba253160 (diff) | |
| parent | a05c57f7aed141a8d6dc9038be177712be432b9d (diff) | |
| download | xmobar-e7cadcd8dee8c2e79e338f67cb27b675aba6bac5.tar.gz xmobar-e7cadcd8dee8c2e79e338f67cb27b675aba6bac5.tar.bz2 | |
Merge remote-tracking branch 'jrk/dbusstuff' into jrk
Diffstat (limited to 'src/Plugins/BufferedPipeReader.hs')
| -rw-r--r-- | src/Plugins/BufferedPipeReader.hs | 4 |
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 |