diff options
| author | David Roundy <droundy@darcs.net> | 2007-10-11 17:44:23 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-10-11 17:44:23 +0200 |
| commit | ff4b11c3691b68399fd64e786e51a2636df40e06 (patch) | |
| tree | 3a54caa17d91e5efaff81741ffe031508c22a048 /Operations.hs | |
| parent | 339950edd9ab9a770b4e54c3e88e9214567c0584 (diff) | |
| download | xmonad-ff4b11c3691b68399fd64e786e51a2636df40e06.tar.gz xmonad-ff4b11c3691b68399fd64e786e51a2636df40e06.tar.xz xmonad-ff4b11c3691b68399fd64e786e51a2636df40e06.zip | |
one more comment.
darcs-hash:20071011154423-72aca-ca5564b90dacc8c690200797f73203c228abbdaf.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index dd03b54..03aef7c 100644 --- a/Operations.hs +++ b/Operations.hs @@ -330,7 +330,8 @@ broadcastMessage a = runOnWorkspaces modw where modw w = do ml' <- handleMessage (W.layout w) (SomeMessage a) `catchX` return Nothing return $ w { W.layout = maybe (W.layout w) id ml' } --- | XXX comment me +-- | This is basically a map function, running a function in the X monad on +-- each workspace with the output of that function being the modified workspace. runOnWorkspaces :: (WindowSpace -> X WindowSpace) -> X () runOnWorkspaces job = do ws <- gets windowset h <- mapM job $ W.hidden ws |