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 /Combo.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 'Combo.hs')
-rw-r--r-- | Combo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -79,7 +79,7 @@ instance (Eq a, Show a, Read a, ReadableSomeLayout a, Layout l (SomeLayout a, In , down = tail $ dropWhile (/=z) xs } | otherwise = differentiate zs xs differentiate [] xs = W.differentiate xs - modifyLayout (Combo f super origls) m = + handleMessage (Combo f super origls) m = do mls <- broadcastPrivate m (map fst origls) let mls' = (\x->zipWith first (map const x) origls) `fmap` mls msuper <- broadcastPrivate m [super] @@ -92,4 +92,4 @@ broadcastPrivate a ol = do nml <- mapM f ol if any isJust nml then return $ Just $ zipWith ((flip maybe) id) ol nml else return Nothing - where f l = modifyLayout l a `catchX` return Nothing + where f l = handleMessage l a `catchX` return Nothing |