rnhmjoj
/
breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use XDG functions from the directory pakage

master
Michele Guerini Rocco 2019-11-06 16:51:11 +01:00
parent 5108b035a4
commit 101f5c06af
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
breve.cabal
View File

@ -32,10 +32,10 @@ executable breve
other-extensions: OverloadedStrings other-extensions: OverloadedStrings
build-depends: base >=4.8 && <5.0, build-depends: base >=4.8 && <5.0,
warp, warp-tls, tls, blaze-html, blaze-markup, warp, warp-tls, tls, blaze-html, blaze-markup,
servant-server, servant, servant-blaze, http-api-data, servant-server, servant, servant-blaze,
wai, wai-extra, streaming-commons, wai, wai-extra, streaming-commons, http-api-data,
transformers, mtl, transformers, mtl,
text, aeson, bytestring, binary, text, aeson, bytestring, binary,
hashtables, cryptohash, random, hashtables, cryptohash, random,
xdg-basedir, configurator, directory configurator, directory
ghc-options: -threaded -O2 ghc-options: -threaded -O2

4
src/Breve/Settings.hs
View File

@ -41,9 +41,9 @@ settings :: Maybe FilePath -> IO AppSettings
settings path = do settings path = do
configPath <- case path of configPath <- case path of
Just path -> return path Just path -> return path
Nothing -> getUserConfigFile "breve" "" Nothing -> getXdgDirectory XdgConfig "breve"
urlsPath <- getUserDataFile "breve" "" urlsPath <- getXdgDirectory XdgData "breve"
config <- load [Required configPath] config <- load [Required configPath]
host <- lookupDefault "localhost" config "hostname" host <- lookupDefault "localhost" config "hostname"