twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 07:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Avoid the unsafe pattern match, in case Config.hs has no layouts

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-03 21:40:07 +00:00
parent ea1134db26
commit 5b7c6c8631
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Operations.hs
View File

@@ -48,7 +48,7 @@ refresh = do
flip mapM_ (M.assocs (W.screen2ws ws)) $ \(scn, n) -> do flip mapM_ (M.assocs (W.screen2ws ws)) $ \(scn, n) -> do
let sc = genericIndex xinesc scn -- temporary coercion! let sc = genericIndex xinesc scn -- temporary coercion!
(l:_) = case M.findWithDefault defaultLayouts n fls of {[] -> defaultLayouts; l -> l} l = fromMaybe full (do (x:_) <- M.lookup n fls; return x)
mapM_ (\(w, rect) -> io $ moveWindowInside d w rect) $ (doLayout l) sc $ W.index n ws mapM_ (\(w, rect) -> io $ moveWindowInside d w rect) $ (doLayout l) sc $ W.index n ws
whenJust (W.peekStack n ws) (io . raiseWindow d) whenJust (W.peekStack n ws) (io . raiseWindow d)
whenJust (W.peek ws) setFocus whenJust (W.peek ws) setFocus