diff options
Diffstat (limited to '')
-rw-r--r-- | TwoPane.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -51,7 +51,7 @@ instance Layout TwoPane a where [] -> [(focus st, rect)] where (left, right) = splitHorizontallyBy split rect - modifyLayout (TwoPane delta split) x = + handleMessage (TwoPane delta split) x = return $ case fromMessage x of Just Shrink -> Just (TwoPane delta (split - delta)) Just Expand -> Just (TwoPane delta (split + delta)) |