From 27d1c74b8c67a01e0203778d020336ed2dc189b0 Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Mon, 25 Jan 2010 03:55:11 +0100
Subject: hlinting the previous patch

Ignore-this: 9d5eba79f7a89ec7cea59d6b36089cba

darcs-hash:20100125025511-748be-6ee650289ecace759813680278466e590e9736be.gz
---
 Plugins/Monitors/Disk.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Plugins')

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)
 
-- 
cgit v1.2.3