From d2522987a78a3c8b616c9b5f343a940ec15bd3ed Mon Sep 17 00:00:00 2001 From: Fabian Kirchner Date: Mon, 12 Aug 2024 16:39:03 +0200 Subject: feat: make active workspace cyan --- app/Sensor.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Sensor.hs b/app/Sensor.hs index 7371c31..d0b8a0c 100644 --- a/app/Sensor.hs +++ b/app/Sensor.hs @@ -505,7 +505,7 @@ instance P.Pretty [Workspace] where instance P.Pretty Workspace where pretty (Active s) = P.color P.White (P.pretty s) - pretty (Inactive s) = P.colorDull P.White (P.pretty s) + pretty (Inactive s) = P.color P.Cyan (P.pretty s) (<$$>) :: (Functor f, Functor g) => (a -> b) -> f (g a) -> f (g b) f <$$> x = fmap f <$> x -- cgit v1.2.3