diff options
author | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-12 17:12:09 +0200 |
commit | 1af7582b30d70ded97db92a69673849372c98fb9 (patch) | |
tree | f5e17574f1edd760920041bb551f02443046ae03 /NoBorders.hs | |
parent | 11f2eae73be71fd0b810966fdb5fec22d856e6c9 (diff) | |
download | XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.gz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.tar.xz XMonadContrib-1af7582b30d70ded97db92a69673849372c98fb9.zip |
changes to work with Stacks that can't be empty.
darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
Diffstat (limited to 'NoBorders.hs')
-rw-r--r-- | NoBorders.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/NoBorders.hs b/NoBorders.hs index 1b8ae94..7d34cfe 100644 --- a/NoBorders.hs +++ b/NoBorders.hs @@ -32,5 +32,5 @@ withBorder bd l = l { doLayout = \r x -> setborders bd >> doLayout l r x setborders :: Dimension -> X () setborders bw = withDisplay $ \d -> - do ws <- gets (W.integrate . W.stack . W.workspace . W.current . windowset) + do ws <- gets (W.integrate' . W.stack . W.workspace . W.current . windowset) mapM_ (\w -> io $ setWindowBorderWidth d w bw) ws |