summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Cpu.hs
diff options
context:
space:
mode:
authorBen Boeckel <MathStuf@gmail.com>2010-12-11 14:19:42 -0500
committerBen Boeckel <MathStuf@gmail.com>2010-12-11 14:19:42 -0500
commit096aee3a1667e056fe906967cc2b078e8122e2b4 (patch)
tree10cb45f45433596d2abc271618553c7e4663f644 /Plugins/Monitors/Cpu.hs
parent6ac13d70d701bc6f0e8a24ef4fa67e501403fe81 (diff)
downloadxmobar-096aee3a1667e056fe906967cc2b078e8122e2b4.tar.gz
xmobar-096aee3a1667e056fe906967cc2b078e8122e2b4.tar.bz2
Use `head' rather than `flip (!!) 0'
Diffstat (limited to 'Plugins/Monitors/Cpu.hs')
-rw-r--r--Plugins/Monitors/Cpu.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Cpu.hs b/Plugins/Monitors/Cpu.hs
index fb5e9e2..ab89246 100644
--- a/Plugins/Monitors/Cpu.hs
+++ b/Plugins/Monitors/Cpu.hs
@@ -28,7 +28,7 @@ cpuData = do s <- B.readFile "/proc/stat"
cpuParser :: B.ByteString -> [Float]
cpuParser =
- map (read . B.unpack) . tail . B.words . flip (!!) 0 . B.lines
+ map (read . B.unpack) . tail . B.words . head . B.lines
parseCPU :: IO [Float]
parseCPU =