From 04db8e49ce85924ad55713b1b79f41b7ccd23916 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 May 2013 13:57:31 -0400 Subject: fix for Android --- Creds.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'Creds.hs') diff --git a/Creds.hs b/Creds.hs index 4c6896663..943276e3c 100644 --- a/Creds.hs +++ b/Creds.hs @@ -122,13 +122,7 @@ writeCacheCreds :: Creds -> FilePath -> Annex () writeCacheCreds creds file = do d <- fromRepo gitAnnexCredsDir createAnnexDirectory d - liftIO $ do - let f = d file - h <- openFile f WriteMode - modifyFileMode f $ removeModes - [groupReadMode, otherReadMode] - hPutStr h creds - hClose h + liftIO $ writeFileProtected (d file) creds readCacheCredPair :: CredPairStorage -> Annex (Maybe CredPair) readCacheCredPair storage = maybe Nothing decodeCredPair -- cgit v1.2.3