mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix creation of creds directory for xmpp

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

1
Assistant/XMPP/Client.hs
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]