twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 19:55:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.U.Ungrab: Avoid "Ambiguous occurrence" error in user configs

Browse Source
This commit is contained in:
Tomas Janousek
2023-12-17 17:29:35 +00:00
parent d54a7e21dd
commit 3613d4d543
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Util/Ungrab.hs
View File

@@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonad.Util.Ungrab -- Module : XMonad.Util.Ungrab
@@ -19,6 +20,9 @@ module XMonad.Util.Ungrab {-# DEPRECATED "Use XMonad.Operations.unGrab instead"
unGrab unGrab
) where ) where
#if MIN_VERSION_xmonad(0, 17, 9)
import XMonad.Operations (unGrab)
#else
import Graphics.X11.Xlib (sync) import Graphics.X11.Xlib (sync)
import Graphics.X11.Xlib.Extras (currentTime) import Graphics.X11.Xlib.Extras (currentTime)
import Graphics.X11.Xlib.Misc (ungrabKeyboard, ungrabPointer) import Graphics.X11.Xlib.Misc (ungrabKeyboard, ungrabPointer)
@@ -43,3 +47,4 @@ import XMonad.Core
-- | Release xmonad's keyboard grab, so other grabbers can do their thing. -- | Release xmonad's keyboard grab, so other grabbers can do their thing.
unGrab :: X () unGrab :: X ()
unGrab = withDisplay $ \d -> io (ungrabKeyboard d currentTime >> ungrabPointer d currentTime >> sync d False) unGrab = withDisplay $ \d -> io (ungrabKeyboard d currentTime >> ungrabPointer d currentTime >> sync d False)
#endif