From 2973c283ae190dfe6545510e844b77fb9a74e780 Mon Sep 17 00:00:00 2001 From: Tony Zorman Date: Tue, 27 Aug 2024 08:54:42 +0200 Subject: [PATCH] fixup! X.L.OnHost: Query gethostname if $HOST lookup fails --- XMonad/Layout/OnHost.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/XMonad/Layout/OnHost.hs b/XMonad/Layout/OnHost.hs index cc21471d9..ce931f644 100644 --- a/XMonad/Layout/OnHost.hs +++ b/XMonad/Layout/OnHost.hs @@ -128,9 +128,9 @@ instance (LayoutClass l1 a, LayoutClass l2 a, Show a) => LayoutClass (OnHost l1 else do (wrs, mlt') <- runLayout (W.Workspace i lf ms) r return (wrs, Just $ mkNewOnHostF p mlt') - handleMessage (OnHost hosts bool lt lf) m - | bool = handleMessage lt m >>= maybe (return Nothing) (\nt -> return . Just $ OnHost hosts bool nt lf) - | otherwise = handleMessage lf m >>= maybe (return Nothing) (return . Just . OnHost hosts bool lt) + handleMessage (OnHost hosts choice lt lf) m + | choice = handleMessage lt m >>= maybe (return Nothing) (\nt -> return . Just $ OnHost hosts choice nt lf) + | otherwise = handleMessage lf m >>= maybe (return Nothing) (return . Just . OnHost hosts choice lt) description (OnHost _ True l1 _) = description l1 description (OnHost _ _ _ l2) = description l2