diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/Column.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/Column.hs b/XMonad/Layout/Column.hs index 279525e..a77b3d8 100644 --- a/XMonad/Layout/Column.hs +++ b/XMonad/Layout/Column.hs @@ -65,7 +65,7 @@ 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 h `div` (fromIntegral n) - else + else round ((fromIntegral h)*q^(n-k)*(1-q)/(1-q^n)) |