make everything work with new doLayout.

This modifies all the contrib modules to work (so far as I know) with the
new contrib layout.  The exception is the LayoutHooks module, which isn't
used.  It exports an API that is inherently unsafe, so far as I can tell
(and always has been).

darcs-hash:20070623210952-72aca-1993ca13dc6996b59fedacc271c03fbaf87eabaa.gz

1 files changed, 4 insertions, 2 deletions

diff --git a/Circle.hs b/Circle.hs
index f70a831..5a62564 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -22,14 +22,16 @@ import Graphics.X11.Xlib
 import XMonad
 import StackSet (integrate, Stack(..))
 
+import XMonadContrib.LayoutHelpers ( idModify )
+
 -- $usage
 -- You can use this module with the following in your Config.hs file:
 --
 -- > import XMonadContrib.Circle
 
 circle :: Layout a
-circle = Layout { doLayout = \r s -> return . raise (length (up s)) . circleLayout r $ integrate s,
-                  modifyLayout = return . const Nothing }
+circle = Layout { doLayout = \r s -> return (raise (length (up s)) . circleLayout r $ integrate s, Nothing),
+                  modifyLayout = idModify }
 
 circleLayout :: Rectangle -> [a] -> [(a, Rectangle)]
 circleLayout _ []     = []