From f5e55f3a27650ceb231566ef5513aeec5c1f7b81 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 04:11:51 +0000 Subject: [PATCH] Wibble --- XMonad/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))