twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-04 22:21:56 -07:00
Code Issues Packages Projects Releases Wiki Activity

Update kind changes in the -class branch

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-27 22:27:30 +00:00
parent 2ab2195782
commit d1fdd4a020
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
StackSet.hs
View File

@@ -495,7 +495,7 @@ swapMaster = modify' $ \c -> case c of
-- natural! keep focus, move current to the top, move top to current. -- natural! keep focus, move current to the top, move top to current.
-- | /O(s)/. Set focus to the master window. -- | /O(s)/. Set focus to the master window.
focusMaster :: StackSet i a s sd -> StackSet i a s sd focusMaster :: StackSet i l a s sd -> StackSet i l a s sd
focusMaster = modify' $ \c -> case c of focusMaster = modify' $ \c -> case c of
Stack _ [] _ -> c Stack _ [] _ -> c
Stack t ls rs -> Stack x [] (xs ++ t : rs) where (x:xs) = reverse ls Stack t ls rs -> Stack x [] (xs ++ t : rs) where (x:xs) = reverse ls