From 9134aaf952df72b68c0ea491467ef1a4e8814f5b Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 22 Oct 2007 22:22:12 +0200
Subject: StackSet.hs: (ensureTags): elaborate into a more descriptive comment.

darcs-hash:20071022202212-bd4d7-103f5a8345112f795767b075368c244f4aedc294
---
 StackSet.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/StackSet.hs b/StackSet.hs
index 95ff29f..221e123 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -413,7 +413,9 @@ renameTag :: Eq i => i -> i -> StackSet i l a s sd -> StackSet i l a s sd
 renameTag o n = mapWorkspace rename
     where rename w = if tag w == o then w { tag = n } else w
 
--- | Ensure that a given set of tags is present.
+-- | Ensure that a given set of workspace tags is present by renaming
+-- existing workspaces and/or creating new hidden workspaces as
+-- necessary.
 ensureTags :: Eq i => l -> [i] -> StackSet i l a s sd -> StackSet i l a s sd
 ensureTags l allt st = et allt (map tag (workspaces st) \\ allt) st
     where et [] _ s = s
-- 
cgit v1.2.3