From 2cda9d0a0fcdd1cc2aebc066ef19282fbe36e898 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Jun 2011 00:42:09 -0400 Subject: generalized safeWriteFile to viaTmp --- Upgrade/V2.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Upgrade/V2.hs') diff --git a/Upgrade/V2.hs b/Upgrade/V2.hs index 8537a5022..ea68e78c9 100644 --- a/Upgrade/V2.hs +++ b/Upgrade/V2.hs @@ -128,7 +128,7 @@ gitAttributesUnWrite repo = do let attributes = Git.attributes repo whenM (doesFileExist attributes) $ do c <- readFileStrict attributes - liftIO $ safeWriteFile attributes $ unlines $ + liftIO $ viaTmp writeFile attributes $ unlines $ filter (\l -> not $ l `elem` attrLines) $ lines c Git.run repo "add" [File attributes] -- cgit v1.2.3