diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-10 20:48:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-10 20:48:45 -0400 |
| commit | 2c46d59f41215ebbd4202429e17a1057ea658e71 (patch) | |
| tree | 88956f7b31801467da1b5693cbe0a7e8899e5f9b /Assistant/XMPP/Client.hs | |
| parent | 4b9c25bedf802607b72278403926e4f43c7ec609 (diff) | |
fix creation of creds directory for xmpp
Diffstat (limited to 'Assistant/XMPP/Client.hs')
| -rw-r--r-- | Assistant/XMPP/Client.hs | 1 |
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] |