Fix haddock comment

This commit is contained in:
Spencer Janssen
2007-11-07 03:05:10 +00:00
parent 94924123bb
commit bbe4a27f65

View File

@@ -414,7 +414,7 @@ renameTag o n = mapWorkspace rename
where rename w = if tag w == o then w { tag = n } else w
-- | Ensure that a given set of workspace tags is present by renaming
-- existing workspaces and/or creating new hidden workspaces as
-- 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