adds conditional export of useXDG in non-windows OS-es. fix in rmGhcupDirs code that used useXDG
This commit is contained in:
parent
82a8c61cf6
commit
9515065407
@ -1370,7 +1370,7 @@ rmGhcupDirs = do
|
|||||||
|
|
||||||
rmBinDir binDir = do
|
rmBinDir binDir = do
|
||||||
#if !defined(IS_WINDOWS)
|
#if !defined(IS_WINDOWS)
|
||||||
isXDGStyle <- useXDG
|
isXDGStyle <- liftIO $ useXDG
|
||||||
if not isXDGStyle
|
if not isXDGStyle
|
||||||
then removeDirIfEmpty binDir
|
then removeDirIfEmpty binDir
|
||||||
else pure ()
|
else pure ()
|
||||||
|
@ -27,6 +27,9 @@ module GHCup.Utils.Dirs
|
|||||||
, relativeSymlink
|
, relativeSymlink
|
||||||
, withGHCupTmpDir
|
, withGHCupTmpDir
|
||||||
, getConfigFilePath
|
, getConfigFilePath
|
||||||
|
#if !defined(IS_WINDOWS)
|
||||||
|
, useXDG
|
||||||
|
#endif
|
||||||
)
|
)
|
||||||
where
|
where
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user