X.L.Master: fix number of windows

This commit is contained in:
Ismael Carnales
2009-03-01 05:15:09 +00:00
parent 15217548ab
commit e8d80d552c

View File

@@ -76,7 +76,7 @@ applyMaster :: (LayoutClass l Window) =>
applyMaster _ frac wksp rect = do
let st= S.stack wksp
let ws = S.integrate' $ st
if length ws > 2 then do
if length ws > 1 then do
let m = head ws
let (mr, sr) = splitHorizontallyBy frac rect
let nst = st>>= S.filter (m/=)