From 05ae4aeac574eb72ad407c8bbde389463f161f7c Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Tue, 11 Mar 2008 19:16:25 +0100
Subject: MagicFocus: update to work with runLayout changes

darcs-hash:20080311181625-bd4d7-ea27117f280f39c155c49433c09788c49e7eacca.gz
---
 XMonad/Layout/MagicFocus.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'XMonad/Layout/MagicFocus.hs')

diff --git a/XMonad/Layout/MagicFocus.hs b/XMonad/Layout/MagicFocus.hs
index 2a69df5..c9bd76e 100644
--- a/XMonad/Layout/MagicFocus.hs
+++ b/XMonad/Layout/MagicFocus.hs
@@ -13,7 +13,7 @@
 -- Automagically put the focused window in the master area.
 -----------------------------------------------------------------------------
 
-module XMonad.Layout.MagicFocus 
+module XMonad.Layout.MagicFocus
     (-- * Usage
      -- $usage
      MagicFocus(MagicFocus)
@@ -44,9 +44,9 @@ instance (LayoutClass l Window) => LayoutClass (MagicFocus l) Window where
 
 magicFocus :: LayoutClass l Window => MagicFocus l Window -> Rectangle
            -> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window))
-magicFocus (MagicFocus l) r s = 
+magicFocus (MagicFocus l) r s =
     withWindowSet $ \wset -> do
-      (ws,nl) <- doLayout l r (swap s $ peek wset)
+      (ws,nl) <- runLayout (Workspace "" l (Just . swap s $ peek wset)) r
       case nl of
         Nothing -> return (ws, Nothing)
         Just l' -> return (ws, Just $ MagicFocus l')
-- 
cgit v1.2.3