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

10
XMonad/Layout/SimplestFloat.hs
View File

@@ -1,4 +1,4 @@
{-# LANGUAGE TypeSynonymInstances, MultiParamTypeClasses #-}
{-# LANGUAGE TypeSynonymInstances, MultiParamTypeClasses, TupleSections #-}
-----------------------------------------------------------------------------
-- |
-- Module : XMonad.Layout.SimplestFloat
@@ -47,8 +47,8 @@ simplestFloat = windowArrangeAll SF
data SimplestFloat a = SF deriving (Show, Read)
instance LayoutClass SimplestFloat Window where
doLayout SF sc (S.Stack w l r) = fmap (flip (,) Nothing)
$ mapM (getSize sc) (w : reverse l ++ r)
doLayout SF sc (S.Stack w l r) = (, Nothing)
<$> mapM (getSize sc) (w : reverse l ++ r)
description _ = "SimplestFloat"
getSize :: Rectangle -> Window -> X (Window,Rectangle)
@@ -58,6 +58,6 @@ getSize (Rectangle rx ry _ _) w = do
wa <- io $ getWindowAttributes d w
let x = max rx $ fi $ wa_x wa
y = max ry $ fi $ wa_y wa
wh = (fi $ wa_width wa) + (bw * 2)
ht = (fi $ wa_height wa) + (bw * 2)
wh = fi (wa_width wa) + (bw * 2)
ht = fi (wa_height wa) + (bw * 2)
return (w, Rectangle x y wh ht)