From d5abefe15ec09b98185e47c426cafd00512e6e3e Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 28 Apr 2026 11:39:09 -0700
Subject: [PATCH] Fix taffybar HLint hints

---
 dotfiles/config/taffybar/taffybar.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs
index 96ec757f..32bf5c41 100644
--- a/dotfiles/config/taffybar/taffybar.hs
+++ b/dotfiles/config/taffybar/taffybar.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TypeApplications #-}
 
 module Main (main) where
 
@@ -9,6 +8,7 @@ import Control.Monad (void, when)
 import Control.Monad.IO.Class (MonadIO, liftIO)
 import Control.Monad.Trans.Reader (asks)
 import Data.Char (toLower)
+import Data.Foldable (for_)
 import Data.GI.Base (castTo)
 import Data.Int (Int32)
 import Data.List (nub)
@@ -85,9 +85,7 @@ decorateWithClassAndBoxM klass builder =
 forEachLabelRecursively :: Gtk.Widget -> (Gtk.Label -> IO ()) -> IO ()
 forEachLabelRecursively widget action = do
   maybeLabel <- castTo Gtk.Label widget
-  case maybeLabel of
-    Just label -> action label
-    Nothing -> pure ()
+  for_ maybeLabel action
 
   maybeContainer <- castTo Gtk.Container widget
   case maybeContainer of
@@ -347,7 +345,7 @@ mprisWidget =
           simplePlayerWidget
             defaultPlayerConfig
               { setNowPlayingLabel =
-                  \np -> stackedMprisLabel <$> playingText 20 20 np,
+                  fmap stackedMprisLabel . playingText 20 20,
                 setupPlayerLabel = setFixedLabelWidth 20
               }
       }