From ac4bd336ae538a592487e1324053ccd6e8e78df6 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Fri, 18 Apr 2008 05:31:33 +0200 Subject: polish darcs-hash:20080418033133-cba2c-7cef4115ec26df3823213216d7ae8ff0e55ae637.gz --- XMonad/Layout/SimpleFloat.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'XMonad/Layout/SimpleFloat.hs') diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index b53b4ab..884a241 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -62,9 +62,10 @@ simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll data SimpleFloat a = SF Dimension deriving (Show, Read) instance LayoutClass SimpleFloat Window where - doLayout (SF i) sc (S.Stack w l r) = do wrs <- mapM (getSize i sc) (w : reverse l ++ r) - return (wrs, Nothing) description _ = "Float" + doLayout (SF i) sc (S.Stack w l r) = do + wrs <- mapM (getSize i sc) (w : reverse l ++ r) + return (wrs, Nothing) getSize :: Dimension -> Rectangle -> Window -> X (Window,Rectangle) getSize i (Rectangle rx ry _ _) w = do -- cgit v1.2.3