diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-25 20:29:30 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-25 20:29:30 +0200 |
| commit | 5d42da6f605385a5692eaf34678e6d4524edad56 (patch) | |
| tree | 13e15aec0414303d7f0a25aa2d074811a2947059 /LayoutModifier.hs | |
| parent | 76b62aa4f8b75b704e4e34fe4c7fe536a2e6d1ea (diff) | |
| download | XMonadContrib-5d42da6f605385a5692eaf34678e6d4524edad56.tar.gz XMonadContrib-5d42da6f605385a5692eaf34678e6d4524edad56.tar.xz XMonadContrib-5d42da6f605385a5692eaf34678e6d4524edad56.zip | |
modifyLayout -> handleMessage.
darcs-hash:20070925182930-72aca-7941d37cac143444e9f167e3dd15944d1138a377.gz
Diffstat (limited to 'LayoutModifier.hs')
| -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' |