From 685d67d19d2e94fc94ed7334e5e7ab19454426d7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 28 Mar 2022 23:27:45 -0600
Subject: Fix things that Hlint is complaining about.

---
 src/Internal/Marking.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Internal/Marking.hs')

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 =
-- 
cgit