Kill cardano-testnet nodes by port using fuser

Plutonomicon · Aug 27, 2024 · c4ca4c8 · c4ca4c8
1 parent 1266638
commit c4ca4c8
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/Internal/Testnet/Utils.purs b/src/Internal/Testnet/Utils.purs
@@ -216,12 +216,13 @@ getNodePort { nodeDir } =
     =<< Node.FS.readTextFile UTF8 (nodeDir <</>> "/port")
 
 findNodeDirs :: { workdir :: FilePath } -> Effect (Array { | NodeLocation () })
-findNodeDirs { workdir } =
-  Node.FS.readdir workdir <#> \subdirs ->
+findNodeDirs { workdir } = do
+  let poolsKeysDir = workdir <</>> "pools-keys"
+  Node.FS.readdir poolsKeysDir <#> \subdirs ->
     flip Array.mapMaybe subdirs \dirname -> do
-      idx <- Int.fromString =<< String.stripPrefix (Pattern "pools-keys/pool1")
+      idx <- Int.fromString =<< String.stripPrefix (Pattern "pool")
         dirname
-      pure { idx, workdir: workdir <</>> dirname, name: dirname }
+      pure { idx, workdir: poolsKeysDir <</>> dirname, name: dirname }
 
 findTestnetPaths
   :: { workdir :: FilePath } -> Effect (Either Error TestnetPaths)