diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-10 22:38:40 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-10 22:38:40 +0200 |
commit | c55dea78d8cd2c748b35607966ffbb2625003fce (patch) | |
tree | 9fd96e7f5cc30c42ce6d71735ce20e00c2587673 /TwoPane.hs | |
parent | 448b7d5258f79ca1ce59ef6d00861eb32f5a48f3 (diff) | |
download | XMonadContrib-c55dea78d8cd2c748b35607966ffbb2625003fce.tar.gz XMonadContrib-c55dea78d8cd2c748b35607966ffbb2625003fce.tar.xz XMonadContrib-c55dea78d8cd2c748b35607966ffbb2625003fce.zip |
Updates for Layout API change
darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz
Diffstat (limited to 'TwoPane.hs')
-rw-r--r-- | TwoPane.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |