Use new XDG API to get data directory

kephas · Jan 15, 2024 · e987ef5 · e987ef5
1 parent ee364a4
commit e987ef5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Action/CmdLine.hs b/src/Action/CmdLine.hs
@@ -80,7 +80,7 @@ data CmdLine
 
 defaultDatabaseLang :: Language -> IO FilePath
 defaultDatabaseLang lang = do
-    dir <- getAppUserDataDirectory "hoogle"
+    dir <- getXdgDirectory XdgData "hoogle"
     pure $ dir </> "default-" ++ lower (show lang) ++ "-" ++ showVersion (trimVersion 3 version) ++ ".hoo"
 
 getCmdLine :: [String] -> IO CmdLine