twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -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 qualified Data.Set as Set
import Graphics.X11.Types import Graphics.X11.Types
import GHC.Generics 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.Core
import XMonad.ManageHook import XMonad.ManageHook
import XMonad.Operations (windows, withFocused) import XMonad.Operations (windows, withFocused)
@ -224,7 +224,7 @@ isOnAnyVisibleWS :: Query Bool
isOnAnyVisibleWS = do isOnAnyVisibleWS = do
w <- ask w <- ask
ws <- liftX $ gets windowset 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 visibleWs = w `elem` allVisible
unfocused = Just w /= SS.peek ws unfocused = Just w /= SS.peek ws
return $ visibleWs && unfocused 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) return (arrs,WorkspaceCursors <$> focusTo cws cs)
handleMess (WorkspaceCursors cs) m = 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) nextIx (ov,ix,mix)
| mix <= 0 || ov = fromIntegral $ nls `div` 2 | mix <= 0 || ov = fromIntegral $ nls `div` 2
| otherwise = max 0 $ (*fi (pred nls)) $ min 1 $ ix / fi mix | 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 state' = fmap (\x@(ov,_,_) -> (ov,nextIx x,pred nls)) state
`mplus` Just (True,fromIntegral nls / 2,pred nls) `mplus` Just (True,fromIntegral nls / 2,pred nls)
ss' = maybe ss (const ss `either` const ssExt) $ zipRemain ss ssExt 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 ) where
import XMonad hiding (tile, splitVertically, splitHorizontallyBy) import XMonad hiding (tile, splitVertically, splitHorizontallyBy)
import XMonad.Prelude
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.XUtils import XMonad.Util.XUtils
import Graphics.X11 as X import Graphics.X11 as X
@ -146,7 +147,7 @@ instance LayoutClass MouseResizableTile Window where
(rightFracs st ++ repeat (slaveFrac st)) sr' num drg (rightFracs st ++ repeat (slaveFrac st)) sr' num drg
rects' = map (mirrorAdjust id mirrorRect . sanitizeRectangle sr') rects rects' = map (mirrorAdjust id mirrorRect . sanitizeRectangle sr') rects
mapM_ deleteDragger $ draggers st mapM_ deleteDragger $ draggers st
(draggerWrs, newDraggers) <- unzip <$> mapM (draggerWrs, newDraggers) <- mapAndUnzipM
(createDragger sr . adjustForMirror (isMirrored st)) (createDragger sr . adjustForMirror (isMirrored st))
preparedDraggers preparedDraggers
return (draggerWrs ++ zip wins rects', Just $ st { draggers = newDraggers, 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 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 where gs = toGroups sls
fgs gs' = do fgs gs' = do
st <- currentStack st <- currentStack