Restrict the master/slave ratio to [0, 1]

darcs-hash:20070611053230-a5988-67ce7423bb53d7c7ac27677e3fb86da46e7444b8

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