diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-01-25 03:55:11 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-01-25 03:55:11 +0100 |
| commit | 27d1c74b8c67a01e0203778d020336ed2dc189b0 (patch) | |
| tree | b7a6f1c7f601612d76134aa1eed09d7d951db748 /Plugins/Monitors | |
| parent | 3f733d1ad19501eadf1b97757bee16ab51150632 (diff) | |
| download | xmobar-27d1c74b8c67a01e0203778d020336ed2dc189b0.tar.gz xmobar-27d1c74b8c67a01e0203778d020336ed2dc189b0.tar.bz2 | |
hlinting the previous patch
Ignore-this: 9d5eba79f7a89ec7cea59d6b36089cba
darcs-hash:20100125025511-748be-6ee650289ecace759813680278466e590e9736be.gz
Diffstat (limited to 'Plugins/Monitors')
| -rw-r--r-- | Plugins/Monitors/Disk.hs | 4 |
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) |