aboutsummaryrefslogtreecommitdiff
path: root/src/Internal/Windows.hs
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-04-09 15:51:30 -0600
committerJosh Rahm <joshuarahm@gmail.com>2022-04-09 15:55:27 -0600
commitfaaf7cedf1d10c54cc7be27c1d2b125e0b99b7e5 (patch)
tree119ad11a6c6e40369f3c03aab29d20d837d82110 /src/Internal/Windows.hs
parent28494be6925bc341534ad43c3523343e6c95a01a (diff)
downloadrde-faaf7cedf1d10c54cc7be27c1d2b125e0b99b7e5.tar.gz
rde-faaf7cedf1d10c54cc7be27c1d2b125e0b99b7e5.tar.bz2
rde-faaf7cedf1d10c54cc7be27c1d2b125e0b99b7e5.zip
[Experimental] - Attempting to create typesafy way to navigate layouts.
Diffstat (limited to 'src/Internal/Windows.hs')
-rw-r--r--src/Internal/Windows.hs2
1 files changed, 1 insertions, 1 deletions
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.