diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 02:20:53 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 02:20:53 +0200 |
| commit | 44e16cb55e3564ac40b6d8ce107680bdf0dc29bc (patch) | |
| tree | 5d37c6a9d0983c5672d7c47c851cdfa0eef06197 /XMonad/Core.hs | |
| parent | cf6ed48334aa06718b29abf45b2be8ee2683a977 (diff) | |
| download | metatile-44e16cb55e3564ac40b6d8ce107680bdf0dc29bc.tar metatile-44e16cb55e3564ac40b6d8ce107680bdf0dc29bc.zip | |
Use none for zero XIDs
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 483bc28..91defbf 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -51,7 +51,7 @@ import System.Process import System.Directory import System.Exit import Graphics.X11.Xlib hiding (Screen) -import Graphics.X11.Xlib.Extras (Event) +import Graphics.X11.Xlib.Extras (Event, none) import Data.Typeable import Data.List ((\\)) import Data.Maybe (isJust,fromMaybe) @@ -233,7 +233,7 @@ getAtom :: String -> X Atom getAtom str = withDisplay $ \dpy -> io $ internAtom dpy str False emptyWindowState :: X WindowState -emptyWindowState = asks (defaultBorderWidth . config) >>= return . WindowState False 0 0 +emptyWindowState = asks (defaultBorderWidth . config) >>= return . WindowState False 0 none getWindowState :: Window -> X WindowState getWindowState w = do |