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

Various clean-ups suggested by HLint

Browse Source
This commit is contained in:
Spencer Janssen
2010-02-14 02:57:50 +00:00
parent f3b07eb5dc
commit 77b3f62610
5 changed files with 20 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/StackSet.hs
View File

@@ -52,7 +52,7 @@ module XMonad.StackSet (
) where
import Prelude hiding (filter)
import Data.Maybe (listToMaybe,isJust)
import Data.Maybe (listToMaybe,isJust,fromMaybe)
import qualified Data.List as L (deleteBy,find,splitAt,filter,nub)
import Data.List ( (\\) )
import qualified Data.Map as M (Map,insert,delete,empty)
@@ -369,7 +369,7 @@ reverseStack (Stack t ls rs) = Stack t rs ls
--
focusWindow :: (Eq s, Eq a, Eq i) => a -> StackSet i l a s sd -> StackSet i l a s sd
focusWindow w s | Just w == peek s = s
| otherwise = maybe s id $ do
| otherwise = fromMaybe s $ do
n <- findTag w s
return $ until ((Just w ==) . peek) focusUp (view n s)