diff options
| author | tv <tv@krebsco.de> | 2025-06-05 17:58:16 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2025-06-05 18:00:34 +0200 |
| commit | 467fdc2bdd95bbb977c9b30efbe06f006e363c31 (patch) | |
| tree | 69866c1467ffc0d383b18cdafc05b126c9502f19 /pkgs | |
| parent | 5650362c7d14412eb5b71bd63078fdec79440654 (diff) | |
Diffstat (limited to 'pkgs')
| -rw-r--r-- | pkgs/haskell/xmonad-tv/src/main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |