Fixed ndmitchell#403

Hoogle will now use the `$XDG_DATA_DIR` instead of `~/.hoogle` as
default path but still keep use the old one as a fallback.

src/Action/CmdLine.hs

@@ -80,7 +80,10 @@ data CmdLine
 
 defaultDatabaseLang :: Language -> IO FilePath
 defaultDatabaseLang lang = do
- dir <- getAppUserDataDirectory "hoogle"
+ xdgLocation <- getXdgDirectory XdgData "hoogle"
+ legacyLocation <- getAppUserDataDirectory "hoogle"
+ canIgnoreLegacyPath <- not <$> doesPathExist legacyLocation
+ let dir = if canIgnoreLegacyPath then xdgLocation else legacyLocation
  pure $ dir </> "default-" ++ lower (show lang) ++ "-" ++ showVersion (trimVersion 3 version) ++ ".hoo"
 
 getCmdLine :: [String] -> IO CmdLine