diff options
| -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 |