diff options
| author | gwern0 <gwern0@gmail.com> | 2010-03-14 22:00:01 +0100 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2010-03-14 22:00:01 +0100 |
| commit | a901c04eb3ca07446397a6435c31d3c3774c82ac (patch) | |
| tree | 8a6e1b0325c02160fe5a426d554a458803e57f4e | |
| parent | 07fb5190405bbffc6b2462dd17ae305581870eab (diff) | |
| download | XMonadContrib-a901c04eb3ca07446397a6435c31d3c3774c82ac.tar.gz XMonadContrib-a901c04eb3ca07446397a6435c31d3c3774c82ac.tar.xz XMonadContrib-a901c04eb3ca07446397a6435c31d3c3774c82ac.zip | |
Column.hs: rm whitespace
Ignore-this: 6cfd701babde42d5dc61bfbe95305b20
darcs-hash:20100314210001-f7719-c1cd8c3928c6fd9e07e1558572e73d6d27e1d2c0.gz
| -rw-r--r-- | XMonad/Layout/Column.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |