From a8cb1328737926cf948d1a7dfbdfd6eff35428d9 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 18 Jan 2023 21:20:08 +0100
Subject: tv xmonad: add ewmh

---
 tv/5pkgs/haskell/xmonad-tv/src/main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tv')

diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
index 6ac6b6b10..2061ae4b9 100644
--- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs
+++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
@@ -4,6 +4,7 @@
 module Main (main) where
 
 import System.Exit (exitFailure)
+import XMonad.Hooks.EwmhDesktops (ewmh)
 
 import Control.Exception
 import Control.Monad.Extra (whenJustM)
@@ -71,7 +72,7 @@ mainNoArgs = do
     handleShutdownEvent <- newShutdownEventHandler
     let
       config =
-        id
+        ewmh
         $ withUrgencyHookC
             BorderUrgencyHook
               { urgencyBorderColor = "#ff0000"
-- 
cgit v1.2.3