diff options
| -rw-r--r-- | TilePrime.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/TilePrime.hs b/TilePrime.hs index 8e77b2c..10ea487 100644 --- a/TilePrime.hs +++ b/TilePrime.hs @@ -65,6 +65,7 @@ instance LayoutClass TilePrime Window where hints <- withDisplay $ \ disp -> io (mapM (getWMNormalHints disp) xs) let xs' = zip xs hints (leftRect, rightRect) + | null (drop 1 xs) = (rect, Rectangle 0 0 0 0) | flp = splitVerticallyBy (frac c) rect | otherwise = splitHorizontallyBy (frac c) rect masters = fillWindows flp leftRect (take (nmaster c) xs') |