From 199b34cb3638ba0bffe76891fa2da107b07bb836 Mon Sep 17 00:00:00 2001 From: Miikka Koskinen Date: Sun, 13 May 2007 20:42:54 +0200 Subject: make DwmPromote compile darcs-hash:20070513184254-0ff8e-5f3f5310fa8469fddfb7923fed31cecbc4c2d371.gz --- DwmPromote.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'DwmPromote.hs') diff --git a/DwmPromote.hs b/DwmPromote.hs index e2f64a0..b3434f6 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -33,13 +33,13 @@ import qualified Data.Map as M dwmpromote :: X () dwmpromote = windows promote -promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a +promote :: (Integral i, Integral j, Ord a) => StackSet i j a -> StackSet i j a promote w = maybe w id $ do a <- peek w -- fail if null stack <- index (current w) w let newstack = swap a (next stack a) stack - return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w), - focus = M.insert (current w) (head newstack) (focus w) } + return . raiseFocus (head newstack) $ + w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w) } where next s a | head s /= a = head s -- focused is not master | length s > 1 = s !! 1 -- cgit v1.2.3