summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors')
-rw-r--r--Plugins/Monitors/Common.hs2
-rw-r--r--Plugins/Monitors/Mem.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs
index bbc9c39..5177fb8 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -249,7 +249,7 @@ showDigits d n =
floatToPercent :: Float -> String
floatToPercent n =
- showDigits 2 (n * 100) ++ "%"
+ showDigits 1 (n * 100) ++ "%"
stringParser :: Pos -> B.ByteString -> String
stringParser (x,y) =
diff --git a/Plugins/Monitors/Mem.hs b/Plugins/Monitors/Mem.hs
index 2236256..65a8e96 100644
--- a/Plugins/Monitors/Mem.hs
+++ b/Plugins/Monitors/Mem.hs
@@ -37,7 +37,7 @@ parseMEM =
formatMem :: [Float] -> Monitor [String]
formatMem x =
- do let f n = showDigits 2 n
+ do let f n = showDigits 1 n
mapM (showWithColors f) x
runMem :: [String] -> Monitor String