Commit 4152c615 authored by Mart Lubbers's avatar Mart Lubbers

exit with code 1 if the bytecode cannot be loaded

parent d0414ba4
Pipeline #23080 passed with stage
in 5 minutes and 40 seconds
......@@ -46,8 +46,10 @@ doTasksWithOptions initFun startable world
| mbOptions =:(Error _) = show (fromError mbOptions) world
# options = fromOk mbOptions
# mbIWorld = createIWorld options world
| mbIWorld =: Left _ = let (Left (err, world)) = mbIWorld in show [err] world
# iworld = let (Right iworld`) = mbIWorld in iworld`
| mbIWorld =: Left _
# (Left (err, world)) = mbIWorld
= show [err] (setReturnCode 1 world)
# (Right iworld) = mbIWorld
# (symbolsResult, iworld) = initSymbolsShare options.distributed options.appName iworld
| symbolsResult =: (Error _) = show ["Error reading symbols while required: " +++ fromError symbolsResult] (destroyIWorld iworld)
# iworld = serve (startupTasks options) (tcpTasks options.serverPort options.keepaliveTime) (timeout options.timeout) iworld
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment