diff options
| author | Roman Cheplyaka <roma@ro-che.info> | 2009-06-02 19:17:54 +0200 |
|---|---|---|
| committer | Roman Cheplyaka <roma@ro-che.info> | 2009-06-02 19:17:54 +0200 |
| commit | f7b667e78ad374558895d2c0cd8ce2138a2f84e6 (patch) | |
| tree | 865277594f658484fd32f22ee1e03cfe9c485b7b /XMonad/Layout/AutoMaster.hs | |
| parent | db7e11dcb8d677aa98fc8e4c6ae191bc2d13d568 (diff) | |
| download | XMonadContrib-f7b667e78ad374558895d2c0cd8ce2138a2f84e6.tar.gz XMonadContrib-f7b667e78ad374558895d2c0cd8ce2138a2f84e6.tar.xz XMonadContrib-f7b667e78ad374558895d2c0cd8ce2138a2f84e6.zip | |
X.L.AutoMaster: fix warning
darcs-hash:20090602171754-3ebed-8774c016bf35378cd266a4f7e863e5e0bea86623.gz
Diffstat (limited to 'XMonad/Layout/AutoMaster.hs')
| -rw-r--r-- | XMonad/Layout/AutoMaster.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/AutoMaster.hs b/XMonad/Layout/AutoMaster.hs index 26eacb9..5e74331 100644 --- a/XMonad/Layout/AutoMaster.hs +++ b/XMonad/Layout/AutoMaster.hs @@ -97,7 +97,7 @@ masterRect (Rectangle sx sy sw sh) n bias = Rectangle sx sy sw h -- | Rectangle for slave area slaveRect :: Rectangle -> Int -> Float -> Rectangle -slaveRect (Rectangle sx sy sw sh) n bias = Rectangle sx (sy+(fromIntegral mh)) sw h +slaveRect (Rectangle sx sy sw sh) n bias = Rectangle sx (sy+mh) sw h where mh = round $ (fromIntegral sh)*(masterHeight n bias) h = round $ (fromIntegral sh)*(1-masterHeight n bias) |