made cokiki create parent directories for missing config files.

1 files changed, 2 insertions, 0 deletions

diff --git a/cokiki.hs b/cokiki.hs
index 26748b2..9448aea 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -10,6 +10,7 @@ import qualified Data.ByteString.Lazy.Char8 as L
 import qualified Data.ByteString.Lazy.Char8 as L8
 import qualified Kiki
 import System.Directory
+import System.FilePath.Posix (takeDirectory)
 import System.Environment
 import System.IO
 import System.Posix.User
@@ -63,6 +64,7 @@ maybeReadFile :: FilePath -> IO (Maybe L.ByteString)
 maybeReadFile path = do
     doesFileExist path >>= bool (return Nothing) (Just <$> L.readFile path)
 myWriteFile f bs = do
+    createDirectoryIfMissing True (takeDirectory f)
     hPutStrLn stderr $ "Writing "++f
     -- L8.putStr bs
     L8.writeFile f bs