diff options
Diffstat (limited to 'src/Internal/Marking.hs')
| -rw-r--r-- | src/Internal/Marking.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Internal/Marking.hs b/src/Internal/Marking.hs index c1234ec..e37e241 100644 --- a/src/Internal/Marking.hs +++ b/src/Internal/Marking.hs @@ -40,7 +40,7 @@ greedyFocus win = do markCurrentWindow :: Mark -> X () markCurrentWindow mark = do withFocused $ \win -> - XS.modify $ \state@(MarkState {markStateMap = ms}) -> + XS.modify $ \state@MarkState {markStateMap = ms} -> state { markStateMap = Map.insert mark win ms } @@ -73,7 +73,7 @@ setFocusedWindow case stack of Nothing -> Nothing Just (Stack _ up down) -> Just (Stack window up down) in - (StackSet (Screen (Workspace t l newStack) a b) vis hid float) + StackSet (Screen (Workspace t l newStack) a b) vis hid float swapWithFocused :: (Ord a) => a -> StackSet i l a s sd -> StackSet i l a s sd swapWithFocused winToSwap stackSet = |