diff options
Diffstat (limited to 'src/Rahm/Desktop/Layout/ConsistentMosaic.hs')
| -rw-r--r-- | src/Rahm/Desktop/Layout/ConsistentMosaic.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs index 0a6215a..3dbc44c 100644 --- a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs +++ b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs @@ -13,7 +13,6 @@ import Data.Maybe (mapMaybe) import XMonad.Layout.MosaicAlt -import Rahm.Desktop.Windows import Rahm.Desktop.Logger @@ -40,7 +39,7 @@ instance (LayoutClass l a, Show a, Ord a, Enum a, Num a) => LayoutClass (MosaicW runLayout (W.Workspace t (MosaicWrap l) (id -> Just s)) rect = do let zs = zipStack [100..] s - s' = mapStack fst zs + s' = fmap fst zs m = Map.fromList (W.integrate zs) (rects, maybeNewLayout) <- runLayout (W.Workspace t l (Just s')) rect |