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