From 5cc61bd61e64d35f7e0053920b45a5cafea0db64 Mon Sep 17 00:00:00 2001 From: Jose A Ortega Ruiz Date: Mon, 25 Jan 2010 04:28:50 +0100 Subject: Documentation for the Disk monitor Ignore-this: 6ad4fcf176b34efc1527973f4f18e12 darcs-hash:20100125032850-748be-f392b8dddcd5c568eb4fd1e31783bab39eb29671.gz --- Plugins/Monitors/Disk.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Plugins') 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 -- cgit v1.2.3