diff options
| -rw-r--r-- | Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index b4c33cf..7b8576b 100644 --- a/Operations.hs +++ b/Operations.hs @@ -379,8 +379,8 @@ tall nmaster delta frac = , modifyLayout = \m -> return $ msum [fmap resize (fromMessage m) ,fmap incmastern (fromMessage m)] } - where resize Shrink = tall nmaster delta (frac-delta) - resize Expand = tall nmaster delta (frac+delta) + where resize Shrink = tall nmaster delta (max 0 $ frac-delta) + resize Expand = tall nmaster delta (min 1 $ frac+delta) incmastern (IncMasterN d) = tall (max 0 (nmaster+d)) delta frac -- | Mirror a rectangle |