diff options
| -rw-r--r-- | lib/NoBorders.hs | 2 |
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 |