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

View File

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