summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-09-28 00:27:30 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-09-28 00:27:30 +0200
commitb3725b53b4d98295caf9136eab804424d0b61239 (patch)
tree20579bad44d816cbbad70cfbc3dc0ba9a5c355c5
parentacc2e8b70b473d0ea336b09937fe4255cc429e40 (diff)
downloadmetatile-b3725b53b4d98295caf9136eab804424d0b61239.tar
metatile-b3725b53b4d98295caf9136eab804424d0b61239.zip
Update kind changes in the -class branch
darcs-hash:20070927222730-a5988-ffed7a66f2fbb4cb244123718c803f4fe4df074b
-rw-r--r--StackSet.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs
index 23b9936..b1b156a 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -495,7 +495,7 @@ swapMaster = modify' $ \c -> case c of
-- natural! keep focus, move current to the top, move top to current.
-- | /O(s)/. Set focus to the master window.
-focusMaster :: StackSet i a s sd -> StackSet i a s sd
+focusMaster :: StackSet i l a s sd -> StackSet i l a s sd
focusMaster = modify' $ \c -> case c of
Stack _ [] _ -> c
Stack t ls rs -> Stack x [] (xs ++ t : rs) where (x:xs) = reverse ls