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

check rawSystem exit codes

Browse source
This commit is contained in:
Joey Hess 2010-10-14 13:17:43 -04:00
parent 8df3e2aa02
commit 7c975eab07
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Backend/File.hs
View file

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