summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-03-30 22:09:47 +0100
committerjao <jao@gnu.org>2022-03-30 22:09:47 +0100
commitec28c44674dde082980c8b23fc6ef6897fadd122 (patch)
treeb7ba39c85dfec711570c7fbaed63d30563877c07 /src
parent88230bb0301aebc37c971d235f5a9735d9563f8d (diff)
downloadxmobar-ec28c44674dde082980c8b23fc6ef6897fadd122.tar.gz
xmobar-ec28c44674dde082980c8b23fc6ef6897fadd122.tar.bz2
Wee clean-ups
Diffstat (limited to 'src')
-rw-r--r--src/Xmobar/Plugins/Monitors/Load.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Load.hs b/src/Xmobar/Plugins/Monitors/Load.hs
index 4703e8a..616b673 100644
--- a/src/Xmobar/Plugins/Monitors/Load.hs
+++ b/src/Xmobar/Plugins/Monitors/Load.hs
@@ -19,7 +19,6 @@ module Xmobar.Plugins.Monitors.Load (loadConfig, runLoad) where
import Xmobar.Plugins.Monitors.Common
import qualified Data.ByteString.Lazy.Char8 as B
import System.Posix.Files (fileExist)
-import Control.Monad (zipWithM)
-- | Default configuration.
loadConfig :: IO MConfig
@@ -31,7 +30,7 @@ loadConfig = mkMConfig
-- the list of load averages
parseLoadAvgs :: B.ByteString -> [Float]
parseLoadAvgs =
- map ((read :: String -> Float) . B.unpack) . take 3 . B.words . head . B.lines
+ map (read . B.unpack) . take 3 . B.words . head . B.lines
-- | Retrieves load information. Returns the monitor string parsed
-- according to template (either default or user specified).
@@ -42,7 +41,6 @@ runLoad _ = do
if exists then
(do l <- io $ B.readFile file >>= return . parseLoadAvgs
d <- getConfigValue decDigits
- let s = showWithColors . const . showDigits d
- parseTemplate =<< zipWithM s l l)
+ parseTemplate =<< mapM (showWithColors (showDigits d)) l)
else
return "Load: N/A"