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

make DwmPromote compile again

Browse Source
This commit is contained in:
Miikka Koskinen 2007-05-10 15:41:58 +00:00
parent df7b1116b3
commit 68ecf2071a
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

@ -36,8 +36,8 @@ dwmpromote = windows promote
promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a
promote w = maybe w id $ do promote w = maybe w id $ do
a <- peek w -- fail if null a <- peek w -- fail if null
let stack = index (current w) w stack <- index (current w) w
newstack = swap a (next stack a) stack let newstack = swap a (next stack a) stack
return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w), return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w),
focus = M.insert (current w) (head newstack) (focus w) } focus = M.insert (current w) (head newstack) (focus w) }
where where