From c3cb4ad65fbf37133207ca7ac838dead3bbe35ab Mon Sep 17 00:00:00 2001
From: Michiel Derhaeg <derhaeg.michiel@gmail.com>
Date: Sun, 18 Mar 2018 00:08:03 +0100
Subject: [PATCH] forgot to remote windows specific code

---
 src/XMonad/Core.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/XMonad/Core.hs b/src/XMonad/Core.hs
index a02657e..a29818b 100644
--- a/src/XMonad/Core.hs
+++ b/src/XMonad/Core.hs
@@ -544,11 +544,11 @@ getXDGDirectory :: XDGDirectory -> FilePath -> IO FilePath
 getXDGDirectory xdgDir suffix =
   normalise . (</> suffix) <$>
   case xdgDir of
-    XDGData   -> get False "XDG_DATA_HOME"   ".local/share"
-    XDGConfig -> get False "XDG_CONFIG_HOME" ".config"
-    XDGCache  -> get True  "XDG_CACHE_HOME"  ".cache"
+    XDGData   -> get "XDG_DATA_HOME"   ".local/share"
+    XDGConfig -> get "XDG_CONFIG_HOME" ".config"
+    XDGCache  -> get "XDG_CACHE_HOME"  ".cache"
   where
-    get _ name fallback = do
+    get name fallback = do
       env <- lookupEnv name
       case env of
         Nothing -> fallback'