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"