From b267617eee537a4ae670f068b31ea5d042353be5 Mon Sep 17 00:00:00 2001 From: gwern0 Date: Sun, 14 Mar 2010 21:00:01 +0000 Subject: [PATCH] Column.hs: rm whitespace --- XMonad/Layout/Column.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/Column.hs b/XMonad/Layout/Column.hs index a77b3d8c..ba87122f 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))