Apply hlint 3.4 hints

XMonad/Actions/GroupNavigation.hs

@@ -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

XMonad/Actions/WorkspaceCursors.hs

@@ -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)

XMonad/Layout/Mosaic.hs

@@ -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

XMonad/Layout/MouseResizableTile.hs

@@ -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,

XMonad/Layout/SubLayouts.hs

@@ -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