diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-30 00:42:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-30 00:46:39 -0400 |
| commit | 2cda9d0a0fcdd1cc2aebc066ef19282fbe36e898 (patch) | |
| tree | de4244439c340a664afd2993b7203ca8ac31e0cd /Command/Unused.hs | |
| parent | d72fb5acc28af3ea6380dd09518f7d1382dea8d2 (diff) | |
generalized safeWriteFile to viaTmp
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index c0a347179..a9d5f90a1 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -86,7 +86,7 @@ checkRemoteUnused' r = do writeUnusedFile :: FilePath -> [(Int, Key)] -> Annex () writeUnusedFile prefix l = do g <- Annex.gitRepo - liftIO $ safeWriteFile (gitAnnexUnusedLog prefix g) $ + liftIO $ viaTmp writeFile (gitAnnexUnusedLog prefix g) $ unlines $ map (\(n, k) -> show n ++ " " ++ show k) l table :: [(Int, Key)] -> [String] |