From d1fdd4a02055aca37227e103c88ae5400d0ff1cc Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Thu, 27 Sep 2007 22:27:30 +0000 Subject: [PATCH] Update kind changes in the -class branch --- StackSet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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