Commit 324ed0a1 authored by Valentin Reis's avatar Valentin Reis

[fix] Typo.

parent a9dc9f92
Pipeline #4724 passed with stage
in 33 seconds
......@@ -281,11 +281,13 @@ runSimpleStack a@StackArgs {..} = do
cleanLeftovers a
instrumentedDaemon <- prepareDaemon a
instrumentedCmd <- prepareCmdRun a
printInfo "Running the daemon."
printInfo "Running the daemon.."
liftIO $ withAsync instrumentedDaemon $ \daemon -> do
kbInstallHandler $ cancel daemon
sh $ printInfo "Running cmd run."
sh $ printInfo "Daemon running.\n"
sh $ printInfo "Running cmd.."
withAsync instrumentedCmd $ \cmd -> do
sh $ printInfo "cmd running.\n"
kbInstallHandler $ cancel daemon >> cancel cmd
waitEitherCancel daemon cmd >>= \case
Left (Left PatternMatched) -> return FoundMessage
......
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