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

better temp file handling

Browse source
This commit is contained in:
Joey Hess 2012-06-15 22:16:00 -04:00
parent 1bae56e4a0
commit e32dda07ca
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Command/Add.hs
View file

@ -55,11 +55,10 @@ lockDown file = do
liftIO $ preventWrite file
tmp <- fromRepo gitAnnexTmpDir
createAnnexDirectory tmp
pid <- liftIO getProcessID
let tmpfile = tmp </> "add" ++ show pid ++ "." ++ takeFileName file
liftIO $ nukeFile tmpfile
liftIO $ createLink file tmpfile
return $ KeySource { keyFilename = file , contentLocation = tmpfile }
liftIO $ do
(tmpfile, _handle) <- openTempFile tmp (takeFileName file)
createLink file tmpfile
return $ KeySource { keyFilename = file , contentLocation = tmpfile }
{- Moves a locked down file into the annex. -}
ingest :: KeySource -> Annex (Maybe Key)