From 467fdc2bdd95bbb977c9b30efbe06f006e363c31 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Thu, 5 Jun 2025 17:58:16 +0200
Subject: tv.hw.screens: RIP

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

(limited to 'pkgs')

diff --git a/pkgs/haskell/xmonad-tv/src/main.hs b/pkgs/haskell/xmonad-tv/src/main.hs
index c843a2c..711f9eb 100644
--- a/pkgs/haskell/xmonad-tv/src/main.hs
+++ b/pkgs/haskell/xmonad-tv/src/main.hs
@@ -73,7 +73,8 @@ mainNoArgs = do
     myMasterDelta <- readEnv' (1 / 20) "XMONAD_MASTER_DELTA" :: IO Rational
     myMasterWidth <- readEnv' (1 / 2) "XMONAD_MASTER_WIDTH" :: IO Rational
     myScreenGaps <- readEnv' [] "XMONAD_SCREEN_GAPS" :: IO [Int]
-    myScreenWidth <- readEnv "XMONAD_SCREEN_WIDTH" :: IO Dimension
+    myScreenWidth <-
+      bracket (getEnv "DISPLAY" >>= openDisplay) closeDisplay (return . widthOfScreen . defaultScreenOfDisplay)
     handleShutdownEvent <- newShutdownEventHandler
     config <-
       ewmhExtra
-- 
cgit v1.2.3