twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

bug fix in DwmPromote. whoops.

Browse Source
This commit is contained in:
Miikka Koskinen 2007-05-22 06:21:18 +00:00
parent 020ee6fc03
commit 585a01aecf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DwmPromote.hs
View File

@ -27,13 +27,13 @@ module XMonadContrib.DwmPromote (dwmpromote) where
import XMonad
import Operations (windows)
import StackSet hiding (swap)
import qualified Data.Map as M
import StackSet
dwmpromote :: X ()
dwmpromote = windows swap
swap :: StackSet i a s -> StackSet i a s
swap = modify Empty $ \c -> case c of
Node _ [] [] -> c
Node t [] (x:rs) -> Node x [] (t:rs)
Node t ls rs -> Node t [] (ys ++ x : rs) where (x:ys) = reverse ls