From 9b7125f9655d6fb3d64d8c47fc07dba8d664127b Mon Sep 17 00:00:00 2001 From: Roman Cheplyaka Date: Tue, 2 Jun 2009 17:17:54 +0000 Subject: [PATCH] X.L.AutoMaster: fix warning --- XMonad/Layout/AutoMaster.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Layout/AutoMaster.hs b/XMonad/Layout/AutoMaster.hs index 26eacb9c..5e74331c 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)