diff --git a/breve.cabal b/breve.cabal index aae636f..5c9582c 100644 --- a/breve.cabal +++ b/breve.cabal @@ -32,10 +32,10 @@ executable breve other-extensions: OverloadedStrings build-depends: base >=4.8 && <5.0, warp, warp-tls, tls, blaze-html, blaze-markup, - servant-server, servant, servant-blaze, http-api-data, - wai, wai-extra, streaming-commons, + servant-server, servant, servant-blaze, + wai, wai-extra, streaming-commons, http-api-data, transformers, mtl, text, aeson, bytestring, binary, hashtables, cryptohash, random, - xdg-basedir, configurator, directory + configurator, directory ghc-options: -threaded -O2 diff --git a/src/Breve/Settings.hs b/src/Breve/Settings.hs index 7d4f0b8..ddcbe37 100644 --- a/src/Breve/Settings.hs +++ b/src/Breve/Settings.hs @@ -41,9 +41,9 @@ settings :: Maybe FilePath -> IO AppSettings settings path = do configPath <- case path of Just path -> return path - Nothing -> getUserConfigFile "breve" "" + Nothing -> getXdgDirectory XdgConfig "breve" - urlsPath <- getUserDataFile "breve" "" + urlsPath <- getXdgDirectory XdgData "breve" config <- load [Required configPath] host <- lookupDefault "localhost" config "hostname"