From dc4712688986edd9a3f272858b91b94badf2560d Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 12 Dec 2010 14:15:13 +0100
Subject: Linting

---
 Plugins/Monitors/MultiCpu.hs | 4 ++--
 1 file 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 _ =
-- 
cgit v1.2.3