diff options
author | David Roundy <droundy@darcs.net> | 2007-06-23 23:09:52 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-23 23:09:52 +0200 |
commit | 5f1312128d87961231d5431af0885711a01cd120 (patch) | |
tree | 5b785ff7779d1d842bc17ac554ccbe759ea4c35d /TwoPane.hs | |
parent | b40d0f8237f4140decbf4edc7366b900cf82428b (diff) | |
download | XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.tar.gz XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.tar.xz XMonadContrib-5f1312128d87961231d5431af0885711a01cd120.zip |
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
Diffstat (limited to 'TwoPane.hs')
-rw-r--r-- | TwoPane.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)] |