Fix warnings

.hlint.yaml

@@ -12,8 +12,9 @@
 
 # Specify additional command line arguments
 #
-# - arguments: [--color, --cpp-simple, -XQuasiQuotes]
-
+- arguments:
+  - -XRecursiveDo
+  - -XQuasiQuotes
 
 # Control which extensions/flags/modules/functions can be used
 #

home-manager/roles/status-script.hs

@@ -108,8 +108,10 @@ withColor color content = pure $ Just [i|<span foreground='\##{color}'>#{content
 when' :: Monad m => Bool -> m (Maybe a) -> m (Maybe a)
 when' cond result = if cond then result else pure Nothing
 
+playerCTLFormat :: String
 playerCTLFormat = "@{{status}} {{title}} - {{album}} - {{artist}}"
 
+playerModule :: Module (Maybe Text)
 playerModule = \var ->
   let update_lines =
         mapM_