From 729c6e4456f9184b575edaa97cbb3616e3388a90 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 23 Feb 2008 08:56:10 +0100
Subject: LayoutModifier: reimplement ModifiedLayout using runLayout and more

- change modifyLayout type to get the Workspace
- updated ResizeScreen and ManageDocks accordingly.

darcs-hash:20080223075610-32816-05f373cf73305ce5b41d0c250fb5d6413e72b3b4.gz
---
 XMonad/Hooks/ManageDocks.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks/ManageDocks.hs')

diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index d971e7c..f1c1d54 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -122,9 +122,9 @@ data ToggleStruts = ToggleStruts deriving (Read,Show,Typeable)
 instance Message ToggleStruts
 
 instance LayoutModifier AvoidStruts a where
-    modifyLayout (AvoidStruts b) l r s = do
+    modifyLayout (AvoidStruts b) w r = do
         nr <- if b then fmap ($ r) calcGap else return r
-        doLayout l nr s
+        runLayout w nr
 
     handleMess (AvoidStruts b ) m
         | Just ToggleStruts <- fromMessage m = return $ Just $ AvoidStruts (not b)
-- 
cgit v1.2.3