hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Prevent crash if ~/.config does not exist (fixes #115)

pull/121/head
Lennart Spitzner 2018-02-13 20:06:31 +01:00
parent 8430b74b1a
commit d749c0da27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src-brittany/Main.hs
View File

@ -346,7 +346,7 @@ readConfigs cmdlineConfig configPaths = do
userConfigXdg <- readConfig userConfigPathXdg userConfigXdg <- readConfig userConfigPathXdg
let userConfig = userConfigSimple <|> userConfigXdg let userConfig = userConfigSimple <|> userConfigXdg
when (Data.Maybe.isNothing userConfig) $ do when (Data.Maybe.isNothing userConfig) $ do
liftIO $ Directory.createDirectoryIfMissing False userBritPathXdg liftIO $ Directory.createDirectoryIfMissing True userBritPathXdg
writeDefaultConfig userConfigPathXdg writeDefaultConfig userConfigPathXdg
-- rightmost has highest priority -- rightmost has highest priority
pure $ [userConfig, localConfig] pure $ [userConfig, localConfig]