From faaf7cedf1d10c54cc7be27c1d2b125e0b99b7e5 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sat, 9 Apr 2022 15:51:30 -0600
Subject: [Experimental] - Attempting to create typesafy way to navigate
 layouts.

---
 src/Internal/Windows.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Internal/Windows.hs b/src/Internal/Windows.hs
index 45fea95..35f093c 100644
--- a/src/Internal/Windows.hs
+++ b/src/Internal/Windows.hs
@@ -54,7 +54,7 @@ forAllWindows fn = do
 
 getFocusedWindow :: X (Maybe Window)
 getFocusedWindow = do
-  (peek . windowset) <$> get
+  peek . windowset <$> get
 
 {- Finds a Window and returns the screen its on and the workspace its on.
  - Returns nothing if the window doesn't exist.
-- 
cgit