From b5826d369dabc893c9fa7bf1a97915c4c7f4967e Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Tue, 19 Jun 2007 23:48:39 +0200
Subject: MagicFocus.magicFocus: fix type signature.

Layout change caused because of missing type argument.

darcs-hash:20070619214839-ea16c-834c06a84ce91a6306ee23b9be344641d42a5ee9.gz
---
 MagicFocus.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MagicFocus.hs')

diff --git a/MagicFocus.hs b/MagicFocus.hs
index 32f1b75..a94db82 100644
--- a/MagicFocus.hs
+++ b/MagicFocus.hs
@@ -23,7 +23,7 @@ import StackSet
 -- > import XMonadContrib.MagicFocus
 -- > defaultLayouts = [ magicFocus tiled , magicFocus $ mirror tiled ]
 
-magicFocus :: Layout -> Layout
+magicFocus :: Layout a -> Layout a
 magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
                  , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }
 
-- 
cgit v1.2.3