twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 12:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Remove the call to singleton

Browse Source
This commit is contained in:
jecaro
2024-05-06 11:18:36 +02:00
committed by brandon s allbery kf8nh
parent d014d7ac84
commit da3e4bef33
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/Columns.hs
View File

@@ -47,7 +47,7 @@ import Control.Monad (guard)
import Control.Monad.State (modify) import Control.Monad.State (modify)
import Control.Monad.Trans.Maybe (MaybeT (..)) import Control.Monad.Trans.Maybe (MaybeT (..))
import Data.Foldable (Foldable (..)) import Data.Foldable (Foldable (..))
import Data.List (scanl', singleton) import Data.List (scanl')
import Data.Maybe (listToMaybe) import Data.Maybe (listToMaybe)
import Data.Ratio ((%)) import Data.Ratio ((%))
import XMonad import XMonad
@@ -358,7 +358,7 @@ mapWindow :: (Window -> Window) -> Columns -> Columns
mapWindow = fmap . fmap . fmap . fmap mapWindow = fmap . fmap . fmap . fmap
columnsToWindows :: Columns -> [Window] columnsToWindows :: Columns -> [Window]
columnsToWindows = foldMap (singleton . snd) . foldMap snd columnsToWindows = foldMap ((:[]) . snd) . foldMap snd
swapWindowBetween :: swapWindowBetween ::
Window -> Window ->