From c55dea78d8cd2c748b35607966ffbb2625003fce Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sun, 10 Jun 2007 22:38:40 +0200 Subject: Updates for Layout API change darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz --- TwoPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TwoPane.hs') diff --git a/TwoPane.hs b/TwoPane.hs index d70f49f..18abdf6 100644 --- a/TwoPane.hs +++ b/TwoPane.hs @@ -24,7 +24,7 @@ twoPane delta split = Layout { doLayout = arrange, modifyLayout = message } -- there are one or zero windows arrange rect ws = return . map (\w -> (w, rect)) $ ws - message x = case fromMessage x of + message x = return $ case fromMessage x of Just Shrink -> Just (twoPane delta (split - delta)) Just Expand -> Just (twoPane delta (split + delta)) _ -> Nothing -- cgit v1.2.3