summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Disk.hs
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-01-25 04:28:50 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-01-25 04:28:50 +0100
commit5cc61bd61e64d35f7e0053920b45a5cafea0db64 (patch)
tree66cfe6c5e41b2520605d12d2cbb8ba3c232cf3d7 /Plugins/Monitors/Disk.hs
parent314a1261d5fed0bf7ae7a5537bf97e6549cf3401 (diff)
downloadxmobar-5cc61bd61e64d35f7e0053920b45a5cafea0db64.tar.gz
xmobar-5cc61bd61e64d35f7e0053920b45a5cafea0db64.tar.bz2
Documentation for the Disk monitor
Ignore-this: 6ad4fcf176b34efc1527973f4f18e12 darcs-hash:20100125032850-748be-f392b8dddcd5c568eb4fd1e31783bab39eb29671.gz
Diffstat (limited to 'Plugins/Monitors/Disk.hs')
-rw-r--r--Plugins/Monitors/Disk.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugins/Monitors/Disk.hs b/Plugins/Monitors/Disk.hs
index 9a86b46..6b825d2 100644
--- a/Plugins/Monitors/Disk.hs
+++ b/Plugins/Monitors/Disk.hs
@@ -80,7 +80,7 @@ speedToStr :: Int -> Float -> String
speedToStr n x =
let units = ["B", "K", "M", "T"]
toI = round :: Float -> Integer
- s y j = y ++ units !! j ++ "/s"
+ s y j = y ++ units !! j
in
if n > 2 || x < 103 then
s (show $ toI x) n