From da3e4bef3374231ff1e5d461f9bfb0a3e6159acc Mon Sep 17 00:00:00 2001 From: jecaro Date: Mon, 6 May 2024 11:18:36 +0200 Subject: [PATCH] Remove the call to singleton --- XMonad/Layout/Columns.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/Columns.hs b/XMonad/Layout/Columns.hs index 40cf1ad4..8acdc55b 100644 --- a/XMonad/Layout/Columns.hs +++ b/XMonad/Layout/Columns.hs @@ -47,7 +47,7 @@ import Control.Monad (guard) import Control.Monad.State (modify) import Control.Monad.Trans.Maybe (MaybeT (..)) import Data.Foldable (Foldable (..)) -import Data.List (scanl', singleton) +import Data.List (scanl') import Data.Maybe (listToMaybe) import Data.Ratio ((%)) import XMonad @@ -358,7 +358,7 @@ mapWindow :: (Window -> Window) -> Columns -> Columns mapWindow = fmap . fmap . fmap . fmap columnsToWindows :: Columns -> [Window] -columnsToWindows = foldMap (singleton . snd) . foldMap snd +columnsToWindows = foldMap ((:[]) . snd) . foldMap snd swapWindowBetween :: Window ->