summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/NoBorders.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/NoBorders.hs b/lib/NoBorders.hs
index 645464e..0920692 100644
--- a/lib/NoBorders.hs
+++ b/lib/NoBorders.hs
@@ -117,7 +117,7 @@ instance (Read p, Show p, SetsAmbiguous p) => LayoutModifier (ConfigurableBorder
redoLayout (ConfigurableBorder p sold) _ mst wrs = do
wsh <- withWindowSet (\wset -> return (hiddens p wset mst wrs))
- s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) ws >>= return . M.fromList
+ s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) (ws ++ wsh) >>= return . M.fromList
let snew = M.mapWithKey (\w bw -> M.findWithDefault bw w sold) s
setBorders $ M.toList $ M.filterWithKey (\w _ -> notElem w wsh) sold