From c29df95bc0cc6b5248669f5b7205cf8a761455e5 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Thu, 11 Oct 2007 17:44:23 +0200
Subject: one more comment.

darcs-hash:20071011154423-72aca-ca5564b90dacc8c690200797f73203c228abbdaf
---
 Operations.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3