diff options
Diffstat (limited to 'Plugins/Monitors/Batt.hs')
| -rw-r--r-- | Plugins/Monitors/Batt.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Plugins/Monitors/Batt.hs b/Plugins/Monitors/Batt.hs index 03becaa..6ea62a9 100644 --- a/Plugins/Monitors/Batt.hs +++ b/Plugins/Monitors/Batt.hs @@ -61,10 +61,7 @@ parseBATT bfs = return $ if isNaN left then NA else Batt left c0 formatBatt :: Float -> Monitor [String] -formatBatt x = - do let f s = floatToPercent (s / 100) - l <- showWithColors f (x * 100) - return [l] +formatBatt x = showPercentsWithColors [x] runBatt :: [String] -> Monitor String runBatt = runBatt' ["BAT0","BAT1","BAT2"] |