From 6245a4779ad57997bb0b44c65511fbffcd024a85 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 11 Jun 2007 07:32:30 +0200 Subject: Restrict the master/slave ratio to [0, 1] darcs-hash:20070611053230-a5988-67ce7423bb53d7c7ac27677e3fb86da46e7444b8 --- 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