Remove the call to singleton

This commit is contained in:
jecaro
2024-05-06 11:18:36 +02:00
committed by brandon s allbery kf8nh
parent d014d7ac84
commit da3e4bef33

View File

@@ -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 ->