me/p2p-rendering-computation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improving safety commands

Browse Source
This commit is contained in:
xecarlox94
2024-10-23 23:43:23 +01:00
parent 8081dd8b09
commit 2a111bd22d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
haskell/app/Main.hs
View File

@@ -283,8 +283,8 @@ eitherExecProcess cmd opts input =
(show input) (show input)
case code of case code of
ExitFailure i -> pure (Left (MkSystemError i err)) ExitFailure i -> pure $ Left $ MkSystemError i err
_ -> pure (Right out) _ -> pure $ Right out
@@ -319,6 +319,7 @@ eitherSpawnProcP2Prc cmd opts =
let (_, _, _, ph) = creationResult let (_, _, _, ph) = creationResult
case creationResult of case creationResult of
(_, _, Just _, _) -> do (_, _, Just _, _) -> do
terminateProcess ph terminateProcess ph
pure $ Left $ MkErrorSpawningProcess $ "Error executing: " ++ cmd pure $ Left $ MkErrorSpawningProcess $ "Error executing: " ++ cmd