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

use safewritefile

Browse source
This commit is contained in:
Joey Hess 2011-01-28 12:35:51 -04:00
parent 4f9336bb60
commit 04fe906ac6
4 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Unused.hs
View file

@ -16,6 +16,7 @@ import Types
import Content
import Messages
import Locations
import Utility
import qualified Annex
import qualified GitRepo as Git
import qualified Backend
@ -43,7 +44,7 @@ checkUnused = do
unused <- unusedKeys
let list = number 1 unused
g <- Annex.gitRepo
liftIO $ writeFile (gitAnnexUnusedLog g) $ unlines $
liftIO $ safeWriteFile (gitAnnexUnusedLog g) $ unlines $
map (\(n, k) -> show n ++ " " ++ show k) list
if null unused
then return True