aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-04-12 18:47:38 -0600
committerJosh Rahm <joshuarahm@gmail.com>2022-10-09 12:19:46 -0600
commit0176bd3412a98db36ab2339e8c3425e6a2f59746 (patch)
treed32115c39cf1dda7568da10a5f1d279e49d20eee /src
parent9b975d25b0ee87ddcf78045195513f87de49b5a7 (diff)
downloadrde-0176bd3412a98db36ab2339e8c3425e6a2f59746.tar.gz
rde-0176bd3412a98db36ab2339e8c3425e6a2f59746.tar.bz2
rde-0176bd3412a98db36ab2339e8c3425e6a2f59746.zip
Finally fix deprecation issue
Diffstat (limited to 'src')
-rw-r--r--src/Rahm/Desktop/Layout/Draw.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Layout/Draw.hs b/src/Rahm/Desktop/Layout/Draw.hs
index e68bb17..8819e8f 100644
--- a/src/Rahm/Desktop/Layout/Draw.hs
+++ b/src/Rahm/Desktop/Layout/Draw.hs
@@ -86,7 +86,7 @@ handleMessage' message layout = do
-- accounted for.
drawXpmIO :: (LayoutClass layout Window) => layout Window -> X (Bool, String)
drawXpmIO l = do
- dir <- X.getXMonadDir
+ dir <- X.asks (X.cfgDir . X.directories)
let shrinkAmt = 5 -- amount to shrink the windows by to make pretty gaps.