twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 20:21:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Apply hlint hints

Browse Source 
All hints are applied in one single commit, as a commit per hint would
result in 80+ separate commits—tihs is really just too much noise.

Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-06-06 16:11:17 +02:00
parent b96899afb6
commit bd5b969d9b
222 changed files with 1119 additions and 1193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/TwoPanePersistent.hs
View File

@@ -38,8 +38,8 @@ import XMonad hiding (focus)
data TwoPanePersistent a = TwoPanePersistent
{ slaveWin :: (Maybe a) -- ^ slave window; if 'Nothing' or not in the current workspace,
-- the window below the master will go into the slave pane
{ slaveWin :: Maybe a -- ^ slave window; if 'Nothing' or not in the current workspace,
-- the window below the master will go into the slave pane
, dFrac :: Rational -- ^ shrink/expand size
, mFrac :: Rational -- ^ initial master size
} deriving (Show, Read)
@@ -76,7 +76,7 @@ focusedMaster (TwoPanePersistent w delta split) s r =
, Just $ TwoPanePersistent (Just next) delta split )
in case w of
-- if retains state, preserve the layout
Just win -> if win `elem` (down s) && (focus s /= win)
Just win -> if win `elem` down s && (focus s /= win)
then ( [(focus s, left), (win, right)]
, Just $ TwoPanePersistent w delta split )
else nextSlave