diff options
| author | Jochen Keil <jochen.keil@gmail.com> | 2012-09-01 21:51:54 +0200 |
|---|---|---|
| committer | Jochen Keil <jochen.keil@gmail.com> | 2012-09-01 21:51:54 +0200 |
| commit | 4d0504dfe6f6ad4a3ddd39e046a54864e6a306bc (patch) | |
| tree | 19f43396059f8b8ceb062bfcc468b3abf4696331 /src/Window.hs | |
| parent | 2b27a08668461ab83c2a4d2c084ed7ae18c965b0 (diff) | |
| download | xmobar-4d0504dfe6f6ad4a3ddd39e046a54864e6a306bc.tar.gz xmobar-4d0504dfe6f6ad4a3ddd39e046a54864e6a306bc.tar.bz2 | |
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.
Diffstat (limited to 'src/Window.hs')
| -rw-r--r-- | src/Window.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |