diff options
| -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) |