From 2428f7bcb5908e87bff4ee94480804a927270cce Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 23 Aug 2007 17:54:37 +0200 Subject: cleanup in DwmPromote. darcs-hash:20070823155437-72aca-31b60831c02ce2c4b5a6f6c48278c4b63027829e.gz --- DwmPromote.hs | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'DwmPromote.hs') diff --git a/DwmPromote.hs b/DwmPromote.hs index a4143c3..778cf20 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 -- cgit v1.2.3