mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
Fix GHC warning: -Wmissing-signatures
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
parent
7894bcec5c
commit
518e96b384
@ -64,6 +64,7 @@ type StateFull = FocusTracking Full
|
||||
|
||||
-- | A pattern synonym for the primary use case of the @FocusTracking@
|
||||
-- transformer; using @Full@.
|
||||
pattern StateFull :: FocusTracking Full a
|
||||
pattern StateFull = FocusTracking Nothing Full
|
||||
|
||||
instance LayoutClass l Window => LayoutClass (FocusTracking l) Window where
|
||||
|
@ -366,6 +366,12 @@ focusWindow w s =
|
||||
Stack foc ls []
|
||||
|
||||
-- | 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 =
|
||||
if alwaysReturn
|
||||
then Just $ TMSCombineTwo f w1 w2 vsp nmaster delta frac (maybe l1 id ml1) (maybe l2 id ml2)
|
||||
|
Loading…
x
Reference in New Issue
Block a user