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'