diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 05:11:51 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 05:11:51 +0100 |
| commit | 2deb7061df58240dc8ba430ace5ec0a5a1b6a46c (patch) | |
| tree | df48925e6877b9984094d1bb6a5d24af9f82f110 | |
| parent | c021fa855e48ec8877b35e2dd9fe94d3f29e09ab (diff) | |
| download | xmonad-2deb7061df58240dc8ba430ace5ec0a5a1b6a46c.tar.gz xmonad-2deb7061df58240dc8ba430ace5ec0a5a1b6a46c.tar.xz xmonad-2deb7061df58240dc8ba430ace5ec0a5a1b6a46c.zip | |
Wibble
darcs-hash:20071222041151-a5988-afd66322b26ccf10da39f99ab2fc997608aaa23c.gz
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index ee16f9c..0493de8 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -313,7 +313,7 @@ broadcastMessage a = runOnWorkspaces $ \w -> do -- | 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 +runOnWorkspaces job = do ws <- gets windowset h <- mapM job $ hidden ws c:v <- mapM (\s -> (\w -> s { workspace = w}) <$> job (workspace s)) |