From ec28c44674dde082980c8b23fc6ef6897fadd122 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 30 Mar 2022 22:09:47 +0100
Subject: Wee clean-ups

---
 src/Xmobar/Plugins/Monitors/Load.hs | 6 ++----
 1 file 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"
-- 
cgit v1.2.3