diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-01-25 15:46:29 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-01-25 15:46:29 +0100 |
| commit | 499ae3d7149c98e3c4d72dbd348094958cdebbc7 (patch) | |
| tree | 3b371cd749ea9e2f0b5d9f6da9443aab5e0ac132 /src/Plugins/Monitors/Common.hs | |
| parent | bec143183692b260bd02fc982952b31c672f2f29 (diff) | |
| download | xmobar-499ae3d7149c98e3c4d72dbd348094958cdebbc7.tar.gz xmobar-499ae3d7149c98e3c4d72dbd348094958cdebbc7.tar.bz2 | |
Battery: unnecessary external calls to /usr/bin/cat removed
Diffstat (limited to 'src/Plugins/Monitors/Common.hs')
| -rw-r--r-- | src/Plugins/Monitors/Common.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs index cc1a6a7..27ab41c 100644 --- a/src/Plugins/Monitors/Common.hs +++ b/src/Plugins/Monitors/Common.hs @@ -53,7 +53,6 @@ module Plugins.Monitors.Common ( -- * Threaded Actions -- $thread , doActionTwiceWithDelay - , catRead ) where @@ -67,7 +66,6 @@ import Numeric import Text.ParserCombinators.Parsec import System.Console.GetOpt import Control.Exception (SomeException,handle) -import System.Process (readProcess) import Plugins -- $monitor @@ -441,6 +439,3 @@ getData action var d = do threadDelay d s <- action modifyMVar_ var (\_ -> return $! s) - -catRead :: FilePath -> IO B.ByteString -catRead file = B.pack `fmap` readProcess "/bin/cat" [file] "" |