Use none for zero XIDs

1 files changed, 4 insertions, 4 deletions

diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index d09e024..4c00b20 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -313,7 +313,7 @@ reparent :: Window -> X ()
 reparent w = withDisplay $ \dpy -> do
   rootw <- asks theRoot
   p <- asks normalBorder
-  noFrame <- getsWindowState ((==0) . wsFrame) w
+  noFrame <- getsWindowState ((==none) . wsFrame) w
   when noFrame $ do
     trace $ "reparent: " ++ show w
     frame <- io $ allocaSetWindowAttributes $ \swa -> do
@@ -329,15 +329,15 @@ reparent w = withDisplay $ \dpy -> do
 hideParent :: Window -> X ()
 hideParent w = withDisplay $ \dpy -> do
   frame <- getsWindowState wsFrame w
-  when (frame /= 0) $ io $ unmapWindow dpy frame
+  when (frame /= none) $ io $ unmapWindow dpy frame
 
 unparent :: Window -> X ()
 unparent w = withDisplay $ \dpy -> do
   trace $ "unparent: " ++ show w
   frame <- getsWindowState wsFrame w
-  when (frame /= 0) $ do
+  when (frame /= none) $ do
     io $ destroyWindow dpy frame
-    modifyWindowState (\ws -> ws { wsFrame = 0 }) w
+    modifyWindowState (\ws -> ws { wsFrame = none }) w
 
 -- ---------------------------------------------------------------------
 -- IO stuff. Doesn't require any X state