Updates for Layout API change

darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz

1 files changed, 1 insertions, 1 deletions

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