From 5f1312128d87961231d5431af0885711a01cd120 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 23 Jun 2007 23:09:52 +0200 Subject: 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 --- TwoPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TwoPane.hs') 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)] -- cgit v1.2.3