diff options
| author | Jose A Ortega Ruiz <jao@gnu.org> | 2010-01-25 04:28:50 +0100 |
|---|---|---|
| committer | Jose A Ortega Ruiz <jao@gnu.org> | 2010-01-25 04:28:50 +0100 |
| commit | 5cc61bd61e64d35f7e0053920b45a5cafea0db64 (patch) | |
| tree | 66cfe6c5e41b2520605d12d2cbb8ba3c232cf3d7 /Plugins/Monitors/Disk.hs | |
| parent | 314a1261d5fed0bf7ae7a5537bf97e6549cf3401 (diff) | |
| download | xmobar-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.hs | 2 |
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 |