diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-03-20 12:45:10 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-03-20 12:45:10 -0400 |
commit | 2952e3d0e57327c69f4f9808d232d88f49df7e2c (patch) | |
tree | 1c17e5a799cf328ea687daff1400e0b3bb45c1bd /Test.hs | |
parent | d8892419b67235aa9011f77b1d198bf68c1c341c (diff) |
improve git-annex-shell exit status propigation
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -2116,9 +2116,8 @@ setTestMode testmode = do runFakeSsh :: [String] -> IO () runFakeSsh ("-n":ps) = runFakeSsh ps runFakeSsh (_host:cmd:[]) = do - let p = shell cmd - (_, _, _, pid) <- createProcess p - forceSuccessProcess p pid + (_, _, _, pid) <- createProcess (shell cmd) + exitWith =<< waitForProcess pid runFakeSsh ps = error $ "fake ssh option parse error: " ++ show ps getTestMode :: IO TestMode |