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