some cleanups suggested by @LSLears

xmonad · May 4, 2023 · 6e48d47 · 6e48d47
1 parent d351ef4
commit 6e48d47
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/XMonad/Layout/PerScreen.hs b/XMonad/Layout/PerScreen.hs
@@ -94,12 +94,10 @@ instance (LayoutClass l1 a, LayoutClass l2 a, Show a) => LayoutClass (OnScreen l
     description (OnScreen _ _  l2 False) = description l2
 
 updateL1 :: OnScreen l1 l2 a -> Maybe (l1 a) -> OnScreen l1 l2 a
-updateL1 (OnScreen ss l1 l2 _) mlt =
-    (\lt' -> OnScreen ss lt' l2 True) $ fromMaybe l1 mlt
+updateL1 (OnScreen ss l1 l2 _) mlt = OnScreen ss (fromMaybe l1 mlt) l2 True
 
 updateL2 :: OnScreen l1 l2 a -> Maybe (l2 a) -> OnScreen l1 l2 a
-updateL2 (OnScreen ss l1 l2 _) mlt =
-    (\lt' -> OnScreen ss l1 lt' False) $ fromMaybe l2 mlt
+updateL2 (OnScreen ss l1 l2 _) mlt = OnScreen ss l1 (fromMaybe l2 mlt) False
 
 -- $deprecated
 -- Older versions of this module exported an 'ifWidth' layout modifier. This
@@ -113,4 +111,4 @@ ifWider :: (LayoutClass l1 a, LayoutClass l2 a)
                -> l2 a        -- ^ layout to use otherwise
                -> BW.PerScreen l1 l2 a
 ifWider = BW.ifWider
-{-# DEPRECATED ifWider "Use XMonad.Layout.ByWidth.ifWider instead" #-}
+{-# DEPRECATED ifWider "Use XMonad.Layout.ByWidth.ifWider instead" #-}