use safewritefile

Command/Init.hs

@@ -20,6 +20,7 @@ import Version
 import Messages
 import Locations
 import Types
+import Utility
 	
 command :: [Command]
 command = [Command "init" paramDesc seek
@@ -61,7 +62,7 @@ gitAttributesWrite repo = do
 	exists <- doesFileExist attributes
 	if not exists
 		then do
-			writeFile attributes $ attrLine ++ "\n"
+			safeWriteFile attributes $ attrLine ++ "\n"
 			commit
 		else do
 			content <- readFile attributes
@@ -85,7 +86,7 @@ gitPreCommitHookWrite repo = do
 	if exists
 		then warning $ "pre-commit hook (" ++ hook ++ ") already exists, not configuring"
 		else liftIO $ do
-			writeFile hook preCommitScript
+			safeWriteFile hook preCommitScript
 			p <- getPermissions hook
 			setPermissions hook $ p {executable = True}
 	where

Command/Uninit.hs

@@ -59,5 +59,5 @@ gitAttributesUnWrite repo = do
 	attrexists <- doesFileExist attributes
 	when attrexists $ do
 		c <- readFileStrict attributes
-		writeFile attributes $ unlines $
+		safeWriteFile attributes $ unlines $
 			filter (/= Command.Init.attrLine) $ lines c

Command/Unused.hs

@@ -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