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-10-09 12:19:46 -0600
commitdc30567f5753cf6231ddc5adaafcf5986e8c840b (patch)
tree119ad11a6c6e40369f3c03aab29d20d837d82110 /src/Internal/Windows.hs
parenta2e6b7617f67f16f9ede07a65d61ceb37adc4990 (diff)
downloadrde-dc30567f5753cf6231ddc5adaafcf5986e8c840b.tar.gz
rde-dc30567f5753cf6231ddc5adaafcf5986e8c840b.tar.bz2
rde-dc30567f5753cf6231ddc5adaafcf5986e8c840b.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.