fix creation of creds directory for xmpp
This commit is contained in:
parent
f642bdc4b2
commit
f3bbe075f2
2 changed files with 3 additions and 0 deletions
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue