diff options
Diffstat (limited to '')
-rw-r--r-- | LayoutModifier.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index bc82a14..f2dcd32 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -45,8 +45,8 @@ instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' Nothing -> ModifiedLayout m `fmap` ml' return (ws', ml'') - modifyLayout (ModifiedLayout m l) mess = - do ml' <- modifyLayout l mess + handleMessage (ModifiedLayout m l) mess = + do ml' <- handleMessage l mess mm' <- modifyModify m mess return $ case mm' of Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' |