aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout/NoBorders.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout/NoBorders.hs')
-rw-r--r--XMonad/Layout/NoBorders.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index a481536..783d814 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -76,11 +76,9 @@ instance LayoutModifier SmartBorder Window where
wset <- gets windowset
let
screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
- ws
- | singleton screens = tiled ++ floating
- | otherwise = []
+ ws = tiled ++ floating
tiled = case wrs of
- [(w, _)] -> [w]
+ [(w, _)] | singleton screens -> [w]
_ -> []
floating =
[ w |