From 47ed815ca108a33f730360adb5a385c323468a3d Mon Sep 17 00:00:00 2001 From: "joachim.fasting" Date: Mon, 18 Jun 2007 22:52:22 +0200 Subject: MagicFocus.magicFocus: add type signature. darcs-hash:20070618205222-ea16c-b441fb622f2532c5b0ba9a0c7b880f9d01e062d4.gz --- MagicFocus.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'MagicFocus.hs') diff --git a/MagicFocus.hs b/MagicFocus.hs index ecc10b4..275f722 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -3,6 +3,7 @@ module XMonadContrib.MagicFocus (magicFocus) where import XMonad import StackSet +magicFocus :: Layout -> Layout magicFocus l = l { doLayout = \s -> (doLayout l) s . swap , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x } -- cgit v1.2.3