summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-01-25 03:55:11 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-01-25 03:55:11 +0100
commit27d1c74b8c67a01e0203778d020336ed2dc189b0 (patch)
treeb7a6f1c7f601612d76134aa1eed09d7d951db748
parent3f733d1ad19501eadf1b97757bee16ab51150632 (diff)
downloadxmobar-27d1c74b8c67a01e0203778d020336ed2dc189b0.tar.gz
xmobar-27d1c74b8c67a01e0203778d020336ed2dc189b0.tar.bz2
hlinting the previous patch
Ignore-this: 9d5eba79f7a89ec7cea59d6b36089cba darcs-hash:20100125025511-748be-6ee650289ecace759813680278466e590e9736be.gz
-rw-r--r--Plugins/Monitors/Disk.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Plugins/Monitors/Disk.hs b/Plugins/Monitors/Disk.hs
index 64a0e7b..5e6901c 100644
--- a/Plugins/Monitors/Disk.hs
+++ b/Plugins/Monitors/Disk.hs
@@ -87,8 +87,8 @@ speedToStr n x =
else
if x < 1024 then
let (ds, _) = floatToDigits 10 (x / 1024)
- tr = if (length ds) > 1 then show $ ds !! 1 else "0"
- in s ("0." ++ (show $ ds !! 0) ++ tr) (n + 1)
+ tr = if length ds > 1 then show $ ds !! 1 else "0"
+ in s ("0." ++ show (head ds) ++ tr) (n + 1)
else
speedToStr (n + 1) (x / 1024)