From c7d9fd8fe08f6474253733fd537a1b07251f3633 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 30 Nov 2022 06:17:18 +0000
Subject: linting

---
 src/Xmobar/Plugins/Kraken.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xmobar/Plugins/Kraken.hs')

diff --git a/src/Xmobar/Plugins/Kraken.hs b/src/Xmobar/Plugins/Kraken.hs
index 2345b3d..5d565e0 100644
--- a/src/Xmobar/Plugins/Kraken.hs
+++ b/src/Xmobar/Plugins/Kraken.hs
@@ -36,7 +36,7 @@ instance Exec Kraken where
            cb (display g)
            loop mv g
 
-      loop mvar (Map.fromList $ zip ps (repeat 0.0))
+      loop mvar (Map.fromList $ map (, 0.0) ps)
 
     where
       display :: Map.Map String Double -> String
-- 
cgit v1.2.3