From f6046249ed91624e56cf689cb9305d94aed28836 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 07:32:30 +0200
Subject: Restrict the master/slave ratio to [0, 1]
darcs-hash:20070611053230-a5988-67ce7423bb53d7c7ac27677e3fb86da46e7444b8.gz
---
Operations.hs | 4 ++--
1 file 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
--
cgit v1.2.3