From 2f77d36f155c93691a443fbcfb108d6f57394106 Mon Sep 17 00:00:00 2001 From: Karsten Schoelzel Date: Wed, 5 Sep 2007 21:39:26 +0200 Subject: Fix FlexibleResize for change in applySizeHints darcs-hash:20070905193926-eb3a1-8fe38452c013fa023fa96f34dc3cebce6efb7c95.gz --- FlexibleResize.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'FlexibleResize.hs') diff --git a/FlexibleResize.hs b/FlexibleResize.hs index d9ed6fb..6546258 100644 --- a/FlexibleResize.hs +++ b/FlexibleResize.hs @@ -60,8 +60,8 @@ mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do firstHalf a b = fromIntegral a * 2 <= b cfst = curry fst csnd = curry snd - mkSel :: Bool -> Position -> Position -> (Position, a -> a -> a, CInt -> Dimension) + mkSel :: Bool -> Position -> Position -> (Position, a -> a -> a, CInt -> Position) mkSel b k p = if b - then (0, csnd, fromIntegral . max 1 . ((k + p) -) . fromIntegral) - else (k, cfst, fromIntegral . max 1 . subtract p . fromIntegral) + then (0, csnd, ((k + p) -) . fromIntegral) + else (k, cfst, subtract p . fromIntegral) -- cgit v1.2.3