From 6e48d47567ca3ec7c350dfd85de9ab5645167b55 Mon Sep 17 00:00:00 2001 From: brandon s allbery kf8nh Date: Thu, 4 May 2023 04:42:53 -0400 Subject: [PATCH] some cleanups suggested by @LSLears --- XMonad/Layout/PerScreen.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/XMonad/Layout/PerScreen.hs b/XMonad/Layout/PerScreen.hs index 07541c683d..cacd4cb341 100644 --- 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" #-} \ No newline at end of file +{-# DEPRECATED ifWider "Use XMonad.Layout.ByWidth.ifWider instead" #-}