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

Apply hlint 3.4 hints

Browse Source
This commit is contained in:
Tomas Janousek 2022-05-02 00:06:59 +01:00
parent 154388aa20
commit 3adb47235f
5 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/GroupNavigation.hs
View File

@ -43,7 +43,7 @@ import qualified Data.Sequence as Seq
import qualified Data.Set as Set
import Graphics.X11.Types
import GHC.Generics
import Prelude hiding (concatMap, drop, elem, filter, null, reverse)
import Prelude hiding (drop, elem, filter, null, reverse)
import XMonad.Core
import XMonad.ManageHook
import XMonad.Operations (windows, withFocused)
@ -224,7 +224,7 @@ isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do
w <- ask
ws <- liftX $ gets windowset
let allVisible = concat $ maybe [] SS.integrate . SS.stack . SS.workspace <$> SS.current ws:SS.visible ws
let allVisible = concatMap (maybe [] SS.integrate . SS.stack . SS.workspace) (SS.current ws:SS.visible ws)
visibleWs = w `elem` allVisible
unfocused = Just w /= SS.peek ws
return $ visibleWs && unfocused

2
XMonad/Actions/WorkspaceCursors.hs
View File

@ -212,4 +212,4 @@ instance LayoutModifier WorkspaceCursors a where
return (arrs,WorkspaceCursors <$> focusTo cws cs)
handleMess (WorkspaceCursors cs) m =
sequenceA $ fmap WorkspaceCursors . ($ cs) . unWrap <$> fromMessage m
traverse (fmap WorkspaceCursors . ($ cs) . unWrap) (fromMessage m)

2
XMonad/Layout/Mosaic.hs
View File

@ -111,7 +111,7 @@ instance LayoutClass Mosaic a where
nextIx (ov,ix,mix)
| mix <= 0 || ov = fromIntegral $ nls `div` 2
| otherwise = max 0 $ (*fi (pred nls)) $ min 1 $ ix / fi mix
rect = rects !! maybe (nls `div` 2) round (nextIx <$> state)
rect = rects !! maybe (nls `div` 2) (round . nextIx) state
state' = fmap (\x@(ov,_,_) -> (ov,nextIx x,pred nls)) state
`mplus` Just (True,fromIntegral nls / 2,pred nls)
ss' = maybe ss (const ss `either` const ssExt) $ zipRemain ss ssExt

3
XMonad/Layout/MouseResizableTile.hs
View File

@ -35,6 +35,7 @@ module XMonad.Layout.MouseResizableTile (
) where
import XMonad hiding (tile, splitVertically, splitHorizontallyBy)
import XMonad.Prelude
import qualified XMonad.StackSet as W
import XMonad.Util.XUtils
import Graphics.X11 as X
@ -146,7 +147,7 @@ instance LayoutClass MouseResizableTile Window where
(rightFracs st ++ repeat (slaveFrac st)) sr' num drg
rects' = map (mirrorAdjust id mirrorRect . sanitizeRectangle sr') rects
mapM_ deleteDragger $ draggers st
(draggerWrs, newDraggers) <- unzip <$> mapM
(draggerWrs, newDraggers) <- mapAndUnzipM
(createDragger sr . adjustForMirror (isMirrored st))
preparedDraggers
return (draggerWrs ++ zip wins rects', Just $ st { draggers = newDraggers,

2
XMonad/Layout/SubLayouts.hs
View File

@ -397,7 +397,7 @@ instance forall l. (Read (l Window), Show (l Window), LayoutClass l Window) => L
in fgs $ nxsAdd $ M.insert x zs $ M.delete yf gs
| otherwise = join <$> sequenceA (catchLayoutMess <$> fromMessage m)
| otherwise = join <$> traverse catchLayoutMess (fromMessage m)
where gs = toGroups sls
fgs gs' = do
st <- currentStack