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

improve git-annex-shell exit status propigation

Browse source
This commit is contained in:
Joey Hess 2017-03-20 12:45:10 -04:00
parent 3cffb941d1
commit df2639218a
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Test.hs
View file

@ -2116,9 +2116,8 @@ setTestMode testmode = do
runFakeSsh :: [String] -> IO () runFakeSsh :: [String] -> IO ()
runFakeSsh ("-n":ps) = runFakeSsh ps runFakeSsh ("-n":ps) = runFakeSsh ps
runFakeSsh (_host:cmd:[]) = do runFakeSsh (_host:cmd:[]) = do
let p = shell cmd (_, _, _, pid) <- createProcess (shell cmd)
(_, _, _, pid) <- createProcess p exitWith =<< waitForProcess pid
forceSuccessProcess p pid
runFakeSsh ps = error $ "fake ssh option parse error: " ++ show ps runFakeSsh ps = error $ "fake ssh option parse error: " ++ show ps
getTestMode :: IO TestMode getTestMode :: IO TestMode