diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-02-22 14:21:32 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-02-22 14:21:32 -0800 |
| commit | 56d0aaadd3b34b3f56371d2a5a8dbbf5b4e20358 (patch) | |
| tree | 3ece9af42dc874920e10f51372a1240af270a70c /src/Text | |
| parent | 0088b776bc051e6428ab53856d12d5836b0fc721 (diff) | |
Trap error in getAppUserDataDirectory.
This can raise an error if pandoc is run in a non-user environment.
Closes #8648.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Data.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Data.hs b/src/Text/Pandoc/Data.hs index 8b4ca3f10..f1cf0521c 100644 --- a/src/Text/Pandoc/Data.hs +++ b/src/Text/Pandoc/Data.hs @@ -239,8 +239,9 @@ defaultUserDataDir :: IO FilePath defaultUserDataDir = do xdgDir <- E.catch (getXdgDirectory XdgData "pandoc") (\(_ :: E.SomeException) -> return mempty) - legacyDir <- getAppUserDataDirectory "pandoc" xdgExists <- doesDirectoryExist xdgDir + legacyDir <- E.catch (getAppUserDataDirectory "pandoc") + (\(_ :: E.SomeException) -> return mempty) legacyDirExists <- doesDirectoryExist legacyDir if not xdgExists && legacyDirExists then return legacyDir |