From 4d0504dfe6f6ad4a3ddd39e046a54864e6a306bc Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Sat, 1 Sep 2012 21:51:54 +0200
Subject: Some cosmetic fixes.

I tried to scrap the hide/reveal boilerplate, but that didn't work out
due different functions ({show,hide}Window) and signaltypes. Got almost
as ugly. Maybe a pattern matching function instead of the "case typ of"
would be nicer. But that's just code golfing.
---
 src/Window.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Window.hs')

diff --git a/src/Window.hs b/src/Window.hs
index 29e1516..4678046 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -159,8 +159,7 @@ hideWindow d w = do
     a <- internAtom d "_NET_WM_STRUT_PARTIAL"    False
     c <- internAtom d "CARDINAL"                 False
     changeProperty32 d w a c propModeReplace $ replicate 12 0
-    unmapWindow d w
-    sync d False
+    unmapWindow d w >> sync d False
 
 showWindow :: Rectangle -> Config -> Display -> Window -> IO ()
 showWindow r cfg d w = do
-- 
cgit v1.2.3