From b40d0f8237f4140decbf4edc7366b900cf82428b Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sat, 23 Jun 2007 16:37:45 +0200
Subject: move Accordian to use idModify.

darcs-hash:20070623143745-72aca-af7a62ddac17d009e0792e38d706e5d5746468e6.gz
---
 Accordion.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Accordion.hs')

diff --git a/Accordion.hs b/Accordion.hs
index 0385969..96ba448 100644
--- a/Accordion.hs
+++ b/Accordion.hs
@@ -22,14 +22,14 @@ import Operations
 import qualified StackSet as W
 import Graphics.X11.Xlib
 import Data.Ratio
+import XMonadContrib.LayoutHelpers ( idModify )
 
 -- $usage
 -- > import XMonadContrib.Accordion
 -- > defaultLayouts = [ accordion ]
 
 accordion :: Eq a => Layout a
-accordion = Layout { doLayout = accordionLayout
-                    , modifyLayout = const $ return Nothing }
+accordion = Layout { doLayout = accordionLayout, modifyLayout = idModify }
 
 accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)]
 accordionLayout sc ws = return $ (zip ups tops) ++
-- 
cgit v1.2.3