diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-12 18:47:38 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-04-12 18:47:38 -0600 |
| commit | 7d47e54beafbd0463e1dcf25c80511342cb6daaa (patch) | |
| tree | d32115c39cf1dda7568da10a5f1d279e49d20eee /src | |
| parent | 3abdbef6e5a7d8d614e5b8be5bd8ba2fbb81d01d (diff) | |
| download | rde-7d47e54beafbd0463e1dcf25c80511342cb6daaa.tar.gz rde-7d47e54beafbd0463e1dcf25c80511342cb6daaa.tar.bz2 rde-7d47e54beafbd0463e1dcf25c80511342cb6daaa.zip | |
Finally fix deprecation issue
Diffstat (limited to 'src')
| -rw-r--r-- | src/Rahm/Desktop/Layout/Draw.hs | 2 |
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. |