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

fix for Android

Browse source
This commit is contained in:
Joey Hess 2013-05-09 13:57:31 -04:00
parent f92eaf6315
commit 280934111e
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Creds.hs
View file

@ -122,13 +122,7 @@ writeCacheCreds :: Creds -> FilePath -> Annex ()
writeCacheCreds creds file = do writeCacheCreds creds file = do
d <- fromRepo gitAnnexCredsDir d <- fromRepo gitAnnexCredsDir
createAnnexDirectory d createAnnexDirectory d
liftIO $ do liftIO $ writeFileProtected (d </> file) creds
let f = d </> file
h <- openFile f WriteMode
modifyFileMode f $ removeModes
[groupReadMode, otherReadMode]
hPutStr h creds
hClose h
readCacheCredPair :: CredPairStorage -> Annex (Maybe CredPair) readCacheCredPair :: CredPairStorage -> Annex (Maybe CredPair)
readCacheCredPair storage = maybe Nothing decodeCredPair readCacheCredPair storage = maybe Nothing decodeCredPair