From 5766623d7d8d60360a7e57e70543e322912b0eb7 Mon Sep 17 00:00:00 2001 From: xecarlox94 Date: Sat, 19 Oct 2024 23:22:38 +0100 Subject: [PATCH] adding next API end point goal --- haskell/app/Main.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/haskell/app/Main.hs b/haskell/app/Main.hs index 8d1bb9c..f4eee09 100644 --- a/haskell/app/Main.hs +++ b/haskell/app/Main.hs @@ -44,6 +44,13 @@ main = do sleepNSecs 5 + outputStr <- execListServers + print outputStr + + -- Mapport - Number + + terminateProcess startProcessHandle + -- Loop (Run replica of haskell program on different $NODES) -- - Start server -- - wait 4 seconds @@ -54,12 +61,6 @@ main = do -- - Use remote machine p2prc cmd to map a port using --mp -- - Return back the exposed public IP and port number back to stdout - outputStr <- execListServers - print outputStr - - terminateProcess startProcessHandle - - data P2prAPI = MkP2prAPI