From 2c46d59f41215ebbd4202429e17a1057ea658e71 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 10 Nov 2012 20:48:45 -0400
Subject: fix creation of creds directory for xmpp

---
 Assistant/XMPP/Client.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Assistant/XMPP/Client.hs')

diff --git a/Assistant/XMPP/Client.hs b/Assistant/XMPP/Client.hs
index 52485fd09..8ab0c2857 100644
--- a/Assistant/XMPP/Client.hs
+++ b/Assistant/XMPP/Client.hs
@@ -72,6 +72,7 @@ setXMPPCreds :: XMPPCreds -> Annex ()
 setXMPPCreds creds = do
 	f <- xmppCredsFile
 	liftIO $ do
+		createDirectoryIfMissing True (parentDir f)
 		h <- openFile f WriteMode
 		modifyFileMode f $ removeModes
 			[groupReadMode, otherReadMode]
-- 
cgit v1.2.3