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

use safesystem

Browse source
This commit is contained in:
Joey Hess 2010-10-19 01:19:56 -04:00
parent 15986f01d1
commit c7664588f8
4 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Backend/File.hs
View file

@ -13,6 +13,7 @@ module Backend.File (backend) where
import Control.Monad.State
import System.IO
import System.Cmd
import System.Cmd.Utils
import System.Exit
import Control.Exception
@ -92,11 +93,7 @@ copyFromRemote r key file = do
then getlocal
else getremote
where
getlocal = do
res <-rawSystem "cp" ["-a", location, file]
if (res == ExitSuccess)
then return ()
else error "cp failed"
getlocal = safeSystem "cp" ["-a", location, file]
getremote = error "get via network not yet implemented!"
location = annexLocation r key