diff options
| author | jao <jao@gnu.org> | 2018-06-24 01:54:28 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-06-24 01:54:28 +0100 |
| commit | 741b803b943430a262ec36658b13830733e17b48 (patch) | |
| tree | da40a2aa66691e494e4c22cba24eb5d1dc0b71e7 /src/Plugins/BufferedPipeReader.hs | |
| parent | 9c5f9b26bc19975f2486a11941821089ee62562a (diff) | |
| download | xmobar-741b803b943430a262ec36658b13830733e17b48.tar.gz xmobar-741b803b943430a262ec36658b13830733e17b48.tar.bz2 | |
hlinting
Diffstat (limited to 'src/Plugins/BufferedPipeReader.hs')
| -rw-r--r-- | src/Plugins/BufferedPipeReader.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/BufferedPipeReader.hs b/src/Plugins/BufferedPipeReader.hs index eeb330b..fb7d269 100644 --- a/src/Plugins/BufferedPipeReader.hs +++ b/src/Plugins/BufferedPipeReader.hs @@ -84,4 +84,4 @@ instance Exec BufferedPipeReader where threadDelay ( to * 100 * 1000 ) readTVarIO tb >>= \b -> when b $ do when tg $ putMVar signal $ Hide 0 - atomically (readTVar ts) >>= maybe (return ()) cb + readTVarIO ts >>= maybe (return ()) cb |