From d749c0da2715f0d0678644ab95429a8715827a50 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Tue, 13 Feb 2018 20:06:31 +0100 Subject: [PATCH] Prevent crash if ~/.config does not exist (fixes #115) --- src-brittany/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs index cc721d2..324a7a3 100644 --- a/src-brittany/Main.hs +++ b/src-brittany/Main.hs @@ -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]