From fbae7e44a693103919fb2393016249dc059eef16 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 8 Mar 2007 13:07:53 +0100
Subject: comments

darcs-hash:20070308120753-9c5c1-89f1c06d6a8f0425701139fe426f08e1cdda42a3
---
 WMonad.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/WMonad.hs b/WMonad.hs
index 0c4f913..2851da2 100644
--- a/WMonad.hs
+++ b/WMonad.hs
@@ -67,14 +67,15 @@ trace msg = io $ do
     hPutStrLn stderr msg
     hFlush stderr
 
--- | Modify the workspace list
+-- | Modify the workspace list.
 modifyWorkspace :: (WorkSpace -> WorkSpace) -> W ()
 modifyWorkspace f = do
     modify $ \s -> s { workspace = f (workspace s) }
     ws <- gets workspace
-    trace (show $ ws)
+    trace (show ws) -- log state changes to stderr
 
--- | Like 'when' but for (WorkSpace -> Maybe a)
+-- | Run a side effecting action with the current workspace. Like 'when' but
+-- for (WorkSpace -> Maybe a).
 whenJust :: (WorkSpace -> Maybe a) -> (a -> W ()) -> W ()
 whenJust mg f = do
     ws <- gets workspace
-- 
cgit v1.2.3