twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-30 19:51: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

10
XMonad/Layout/MessageControl.hs
View File

@@ -65,13 +65,13 @@ import Control.Arrow (second)
-- | the Ignore layout modifier. Prevents its inner layout from receiving
-- messages of a certain type.
data Ignore m l w = I (l w)
newtype Ignore m l w = I (l w)
deriving (Show, Read)
instance (Message m, LayoutClass l w) => LayoutClass (Ignore m l) w where
runLayout ws r = second (I <$>) <$> runLayout (unILayout ws) r
where unILayout :: Workspace i (Ignore m l w) w -> Workspace i (l w) w
unILayout w@(Workspace { layout = (I l) }) = w { layout = l }
unILayout w@Workspace{ layout = (I l) } = w { layout = l }
handleMessage l@(I l') sm
= case fromMessageAs sm l of
Just _ -> return Nothing
@@ -110,12 +110,12 @@ escape = Escape . SomeMessage
-- | Applies the UnEscape layout modifier to a layout.
unEscape :: LayoutClass l w => l w -> ModifiedLayout UnEscape l w
unEscape l = ModifiedLayout UE l
unEscape = ModifiedLayout UE
-- | Applies the Ignore layout modifier to a layout, blocking
-- all messages of the same type as the one passed as its first argument.
ignore :: (Message m, LayoutClass l w)
=> m -> l w -> (Ignore m l w)
ignore _ l = I l
=> m -> l w -> Ignore m l w
ignore _ = I