diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index a0fc8772ac..fc33f3ce37 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -58,8 +58,8 @@ import Distribution.Simple.Utils (toUTF8BS, writeUTF8File, readUTF8File) import qualified Data.Version as Version import System.FilePath as FilePath import qualified System.FilePath.Posix as FilePath.Posix -import System.Directory ( getAppUserDataDirectory, createDirectoryIfMissing, - getModificationTime ) +import System.Directory ( getXdgDirectory, createDirectoryIfMissing, + getModificationTime, XdgDirectory ( XdgData ) ) import Text.Printf import Prelude @@ -634,8 +634,8 @@ getPkgDatabases verbosity mode use_user use_cache expand_vars my_flags = do let no_user_db = FlagNoUserDb `elem` my_flags -- get the location of the user package database, and create it if necessary - -- getAppUserDataDirectory can fail (e.g. if $HOME isn't set) - e_appdir <- tryIO $ getAppUserDataDirectory "ghc" + -- getXdgDirectory can fail (e.g. if $HOME isn't set) + e_appdir <- tryIO $ getXdgDirectory XdgData "ghc" mb_user_conf <- case [ f | FlagUserConfig f <- my_flags ] of |