Apply hlint 3.4 hints

2025-07-31 04:01:51 -07:00 · 2022-05-02 00:06:59 +01:00
parent 154388aa20
commit 3adb47235f
5 changed files with 7 additions and 6 deletions
--- a/XMonad/Layout/SubLayouts.hs
+++ b/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