diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-12 14:15:13 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-12-12 14:15:50 +0100 |
| commit | dc4712688986edd9a3f272858b91b94badf2560d (patch) | |
| tree | 9016e713056c134f2c115bed17fc74b2c65e4188 | |
| parent | fb2a29ba87339bd155aa3bbe4a6754da738ff58e (diff) | |
| download | xmobar-dc4712688986edd9a3f272858b91b94badf2560d.tar.gz xmobar-dc4712688986edd9a3f272858b91b94badf2560d.tar.bz2 | |
Linting
| -rw-r--r-- | Plugins/Monitors/MultiCpu.hs | 4 |
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 _ = |