twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 12:11:52 -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

4
XMonad/Layout/ZoomRow.hs
View File

@@ -105,7 +105,7 @@ data ZoomRow f a = ZC { zoomEq :: f a
-- ^ Function to compare elements for
-- equality, a real Eq instance might
-- not be what you want in some cases
, zoomRatios :: (Zipper (Elt a))
, zoomRatios :: Zipper (Elt a)
-- ^ Element specs. The zipper is so we
-- know what the focus is when we handle
-- a message
@@ -236,7 +236,7 @@ instance (EQF f a, Show a, Read a, Show (f a), Read (f a), Typeable f)
helper (Right a:as) (Right b:bs) = a `sameAs` b && as `helper` bs
helper (Left a:as) (Left b:bs) = a `sameAs` b && as `helper` bs
helper _ _ = False
E a1 r1 b1 `sameAs` E a2 r2 b2 = (eq f a1 a2) && (r1 == r2) && (b1 == b2)
E a1 r1 b1 `sameAs` E a2 r2 b2 = eq f a1 a2 && (r1 == r2) && (b1 == b2)
pureMessage (ZC f zelts) sm | Just (ZoomFull False) <- fromMessage sm
, Just (E a r True) <- getFocusZ zelts