Fix cardano-testnet process hanging

Plutonomicon · Aug 6, 2024 · 49ceb14 · 49ceb14
1 parent bcbfb9b
commit 49ceb14
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Internal/Testnet/Server.purs b/src/Internal/Testnet/Server.purs
@@ -72,7 +72,7 @@ import Data.String.Pattern (Pattern(Pattern))
 import Data.Time.Duration (Milliseconds(Milliseconds))
 import Data.UInt (UInt)
 import Data.UInt (toString) as UInt
-import Effect.Aff (Aff)
+import Effect.Aff (Aff, launchAff_)
 import Effect.Aff as Aff
 import Effect.Aff.Retry
   ( RetryPolicy
@@ -381,6 +381,7 @@ startCardanoTestnet params cleanupRef = annotateError "startCardanoTestnet" do
       $ liftEffect do
           log $ "Cleaning up workdir: " <> workspace
           _rmdirSync workspace
+          launchAff_ $ stop testnet
 
   _ <- redirectChannels
     { stderr: channels.stderr, stdout: channels.stdout }