diff options
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index ee5a5bc..5a1d1b5 100644 --- a/Operations.hs +++ b/Operations.hs @@ -48,7 +48,7 @@ import qualified Data.Traversable as T -- border set, and its event mask set. -- manage :: Window -> X () -manage w = withDisplay $ \d -> do +manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do setInitialProperties w >> reveal w -- FIXME: This is pretty awkward. We can't can't let "refresh" happen |