twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix GHC warning: -Wmissing-signatures

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe 2021-05-20 17:02:55 +02:00
parent 7894bcec5c
commit 518e96b384
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
XMonad/Layout/StateFull.hs
View File

@ -64,6 +64,7 @@ type StateFull = FocusTracking Full
-- | A pattern synonym for the primary use case of the @FocusTracking@ -- | A pattern synonym for the primary use case of the @FocusTracking@
-- transformer; using @Full@. -- transformer; using @Full@.
pattern StateFull :: FocusTracking Full a
pattern StateFull = FocusTracking Nothing Full pattern StateFull = FocusTracking Nothing Full
instance LayoutClass l Window => LayoutClass (FocusTracking l) Window where instance LayoutClass l Window => LayoutClass (FocusTracking l) Window where

6
XMonad/Layout/TallMastersCombo.hs
View File

@ -366,6 +366,12 @@ focusWindow w s =
Stack foc ls [] Stack foc ls []
-- | Merge two Maybe sublayouts. -- | Merge two Maybe sublayouts.
mergeSubLayouts
:: Maybe (l1 a) -- ^ Left layout
-> Maybe (l2 a) -- ^ Right layout
-> TMSCombineTwo l1 l2 a -- ^ How to combine the layouts
-> Bool -- ^ Return a 'Just' no matter what
-> Maybe (TMSCombineTwo l1 l2 a)
mergeSubLayouts ml1 ml2 (TMSCombineTwo f w1 w2 vsp nmaster delta frac l1 l2) alwaysReturn = mergeSubLayouts ml1 ml2 (TMSCombineTwo f w1 w2 vsp nmaster delta frac l1 l2) alwaysReturn =
if alwaysReturn if alwaysReturn
then Just $ TMSCombineTwo f w1 w2 vsp nmaster delta frac (maybe l1 id ml1) (maybe l2 id ml2) then Just $ TMSCombineTwo f w1 w2 vsp nmaster delta frac (maybe l1 id ml1) (maybe l2 id ml2)