summaryrefslogtreecommitdiff
path: root/Assistant/XMPP/Client.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-10 20:48:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-10 20:48:45 -0400
commit2c46d59f41215ebbd4202429e17a1057ea658e71 (patch)
tree88956f7b31801467da1b5693cbe0a7e8899e5f9b /Assistant/XMPP/Client.hs
parent4b9c25bedf802607b72278403926e4f43c7ec609 (diff)
fix creation of creds directory for xmpp
Diffstat (limited to 'Assistant/XMPP/Client.hs')
-rw-r--r--Assistant/XMPP/Client.hs1
1 files changed, 1 insertions, 0 deletions
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]