From a901c04eb3ca07446397a6435c31d3c3774c82ac Mon Sep 17 00:00:00 2001 From: gwern0 Date: Sun, 14 Mar 2010 22:00:01 +0100 Subject: Column.hs: rm whitespace Ignore-this: 6cfd701babde42d5dc61bfbe95305b20 darcs-hash:20100314210001-f7719-c1cd8c3928c6fd9e07e1558572e73d6d27e1d2c0.gz --- XMonad/Layout/Column.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Layout/Column.hs b/XMonad/Layout/Column.hs index a77b3d8..ba87122 100644 --- a/XMonad/Layout/Column.hs +++ b/XMonad/Layout/Column.hs @@ -61,9 +61,9 @@ columnLayout (Column q) rect stack = zip ws rects mkRect :: Rectangle -> (Dimension,Position) -> Rectangle mkRect (Rectangle xs ys ws _) (h,y) = Rectangle xs (ys+fromIntegral y) ws h - + xn :: Int -> Rectangle -> Float -> Int -> Dimension -xn n (Rectangle _ _ _ h) q k = if q==1 then +xn n (Rectangle _ _ _ h) q k = if q==1 then h `div` (fromIntegral n) else round ((fromIntegral h)*q^(n-k)*(1-q)/(1-q^n)) -- cgit v1.2.3