From f7b667e78ad374558895d2c0cd8ce2138a2f84e6 Mon Sep 17 00:00:00 2001 From: Roman Cheplyaka Date: Tue, 2 Jun 2009 19:17:54 +0200 Subject: X.L.AutoMaster: fix warning darcs-hash:20090602171754-3ebed-8774c016bf35378cd266a4f7e863e5e0bea86623.gz --- XMonad/Layout/AutoMaster.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout/AutoMaster.hs') 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) -- cgit v1.2.3