summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/MultiCpu.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-12 14:15:13 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-12 14:15:50 +0100
commitdc4712688986edd9a3f272858b91b94badf2560d (patch)
tree9016e713056c134f2c115bed17fc74b2c65e4188 /Plugins/Monitors/MultiCpu.hs
parentfb2a29ba87339bd155aa3bbe4a6754da738ff58e (diff)
downloadxmobar-dc4712688986edd9a3f272858b91b94badf2560d.tar.gz
xmobar-dc4712688986edd9a3f272858b91b94badf2560d.tar.bz2
Linting
Diffstat (limited to 'Plugins/Monitors/MultiCpu.hs')
-rw-r--r--Plugins/Monitors/MultiCpu.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Plugins/Monitors/MultiCpu.hs b/Plugins/Monitors/MultiCpu.hs
index fff72cc..535196a 100644
--- a/Plugins/Monitors/MultiCpu.hs
+++ b/Plugins/Monitors/MultiCpu.hs
@@ -16,7 +16,7 @@ module Plugins.Monitors.MultiCpu(multiCpuConfig, runMultiCpu) where
import Plugins.Monitors.Common
import qualified Data.ByteString.Lazy.Char8 as B
-import Data.List (isPrefixOf,intersperse,transpose,unfoldr)
+import Data.List (isPrefixOf, transpose, unfoldr)
multiCpuConfig :: IO MConfig
multiCpuConfig =
@@ -71,7 +71,7 @@ groupData = transpose . tail . splitEvery 6
formatAutoCpus :: [String] -> Monitor [String]
formatAutoCpus [] = return $ replicate 6 ""
-formatAutoCpus xs = return $ map concat . map (intersperse " ") $ groupData xs
+formatAutoCpus xs = return $ map unwords (groupData xs)
runMultiCpu :: [String] -> Monitor String
runMultiCpu _ =