From 9ae249a510e0785fbf1ec63e7f2256da696d2bc9 Mon Sep 17 00:00:00 2001 From: Jan Beinke <git@janbeinke.com> Date: Wed, 11 Dec 2019 16:36:15 +0100 Subject: [PATCH] Fix batteryImportance ligic being backwards --- src/QBar/Blocks/Battery.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/QBar/Blocks/Battery.hs b/src/QBar/Blocks/Battery.hs index 530a158..7a380bc 100644 --- a/src/QBar/Blocks/Battery.hs +++ b/src/QBar/Blocks/Battery.hs @@ -122,10 +122,10 @@ batteryBlockOutput isPlugged bs = (shortText.~shortText') . createBlock <$> full batteryImportance :: [BatteryState] -> Importance batteryImportance batteryStates - | percentage < 10 = percentage / 10 + 3 - | percentage < 35 = (percentage - 10) / 25 + 2 - | percentage < 75 = (percentage - 35) / 40 + 1 - | otherwise = (percentage - 75) / 25 + 0 + | percentage < 10 = 4 - percentage / 10 + | percentage < 35 = 3 - (percentage - 10) / 25 + | percentage < 75 = 2 - (percentage - 35) / 40 + | otherwise = 1 - (percentage - 75) / 25 where percentage :: Float percentage = batteryPercentage batteryStates -- GitLab