From 52c08c5c47a4025db21eef30282a88a377008a7e Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Sat, 6 Oct 2007 07:56:52 +0200
Subject: get rid of obviated comment

darcs-hash:20071006055652-78224-15676977cc5fad89bac32883cb885307d536ca3f.gz
---
 SwapWorkspaces.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'SwapWorkspaces.hs')

diff --git a/SwapWorkspaces.hs b/SwapWorkspaces.hs
index 0dbcfb1..b792fd7 100644
--- a/SwapWorkspaces.hs
+++ b/SwapWorkspaces.hs
@@ -43,7 +43,6 @@ import StackSet
 swapWithCurrent :: Eq i => i -> StackSet i l a s sd -> StackSet i l a s sd
 swapWithCurrent t s = swapWorkspaces t (tag $ workspace $ current s) s
 
--- Stole this from StackSet.renameTag -- extracted the traversal code they have in common as mapWorkspaces
 swapWorkspaces :: Eq i => i -> i -> StackSet i l a s sd -> StackSet i l a s sd
 swapWorkspaces t1 t2 = mapWorkspace swap
     where swap w = if      tag w == t1 then w { tag = t2 }
-- 
cgit v1.2.3