From 5943b98bf210625c994ca17f476a80b9a942f165 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Thu, 23 Aug 2007 15:54:37 +0000
Subject: [PATCH] cleanup in DwmPromote.

---
 DwmPromote.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/DwmPromote.hs b/DwmPromote.hs
index a4143c36..778cf205 100644
--- a/DwmPromote.hs
+++ b/DwmPromote.hs
@@ -40,10 +40,8 @@ import StackSet
 -- %keybind , ((modMask,               xK_Return), dwmpromote)
 
 dwmpromote :: X ()
-dwmpromote = windows swap
-
-swap :: StackSet i a s sd -> StackSet i a s sd
-swap = modify' $ \c -> case c of
-    Stack _ [] []     -> c
-    Stack t [] (x:rs) -> Stack x [] (t:rs)
-    Stack t ls rs     -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls
+dwmpromote = windows $ modify' $
+             \c -> case c of
+                   Stack _ [] []     -> c
+                   Stack t [] (x:rs) -> Stack x [] (t:rs)
+                   Stack t ls rs     -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls