From 6c8f0bf45f558ce35d4ecadb4c285cca0830eb57 Mon Sep 17 00:00:00 2001 From: Miikka Koskinen Date: Thu, 3 May 2007 12:52:36 +0200 Subject: make DwmPromote compile darcs-hash:20070503105236-0ff8e-5a4a5a5f389f1319b56e1535af461a0a28cf5c2f.gz --- DwmPromote.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'DwmPromote.hs') diff --git a/DwmPromote.hs b/DwmPromote.hs index 7792fdd..68487ce 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -37,8 +37,8 @@ promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a promote w = maybe w id $ do a <- peek w -- fail if null let stack = index (current w) w - let newstack = swap a (next stack a) stack - return $ w { stacks = M.insert (current w) newstack (stacks w), + 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) } where next s a | head s /= a = head s -- focused is not master -- cgit v1.2.3