fix creation of creds directory for xmpp

This commit is contained in:
Joey Hess 2012-11-10 20:48:45 -04:00
parent f642bdc4b2
commit f3bbe075f2
2 changed files with 3 additions and 0 deletions

View file

@ -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]