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, 1 insertions, 1 deletions

diff --git a/TwoPane.hs b/TwoPane.hs
index b4d5f41..1fdabc7 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -35,7 +35,7 @@ import StackSet ( focus, up, down)
 -- > twoPane defaultDelta (1%2)
 
 twoPane :: Rational -> Rational -> Layout a
-twoPane delta split = Layout { doLayout = \r s -> return $ arrange r s, modifyLayout = message }
+twoPane delta split = Layout { doLayout = \r s -> return (arrange r s,Nothing), modifyLayout = message }
  where
     arrange rect st = case reverse (up st) of
                         (master:_) -> [(master,left),(focus st,right)]