From e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 7 Mar 2025 17:40:16 -0700 Subject: Misspelling: accompaning -> accompanying --- src/Rahm/Desktop/Keys/Wml.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Rahm/Desktop/Keys') diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index 86bc921..d3e741b 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -518,13 +518,13 @@ readNextWorkspace = winLocation <- W.findWindow ws win justWorkspaceWithPreferredWindow win . W.tag <$> W.getLocationWorkspace winLocation - -- The accompaning worksapce to the next read workspace. + -- The accompanying worksapce to the next read workspace. (_, _, "~") -> - justWorkspace . accompaningWorkspace <$> readNextWorkspaceName - -- The accompaning workspace to the current workspace (equivalent to ~.) + justWorkspace . accompanyingWorkspace <$> readNextWorkspaceName + -- The accompanying workspace to the current workspace (equivalent to ~.) (_, _, " ") -> liftXToFeed $ - justWorkspace . accompaningWorkspace <$> getCurrentWorkspace + justWorkspace . accompanyingWorkspace <$> getCurrentWorkspace -- The balck hole workspace (_, _, "_") -> return blackHoleWorkspace -- cgit