diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index c2be448..d6eadbc 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -1370,7 +1370,7 @@ rmGhcupDirs = do
 
     rmBinDir binDir = do
 #if !defined(IS_WINDOWS)
-      isXDGStyle <- useXDG
+      isXDGStyle <- liftIO $ useXDG
       if not isXDGStyle
         then removeDirIfEmpty binDir
         else pure ()
diff --git a/lib/GHCup/Utils/Dirs.hs b/lib/GHCup/Utils/Dirs.hs
index 0057f1e..ec680e7 100644
--- a/lib/GHCup/Utils/Dirs.hs
+++ b/lib/GHCup/Utils/Dirs.hs
@@ -27,6 +27,9 @@ module GHCup.Utils.Dirs
   , relativeSymlink
   , withGHCupTmpDir
   , getConfigFilePath
+#if !defined(IS_WINDOWS)
+  , useXDG
+#endif
   )
 where