From 0a94f42558fbcc6e7bbc6bdd8b12b3a22cecc9d2 Mon Sep 17 00:00:00 2001
From: Miikka Koskinen <arcatan@kapsi.fi>
Date: Thu, 10 May 2007 17:41:58 +0200
Subject: make DwmPromote compile again

darcs-hash:20070510154158-0ff8e-bcf0ba38fcd4f6d28e491996d0d2370667111861.gz
---
 DwmPromote.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'DwmPromote.hs')

diff --git a/DwmPromote.hs b/DwmPromote.hs
index 68487ce..e2f64a0 100644
--- a/DwmPromote.hs
+++ b/DwmPromote.hs
@@ -36,8 +36,8 @@ dwmpromote = windows promote
 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
-        newstack = swap a (next stack a) stack
+    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) }
   where
-- 
cgit v1.2.3