From 0f28999df525a4e337b4c64ceda8ee6a8fd9f092 Mon Sep 17 00:00:00 2001
From: nini-faroux <nfarrel1@tcd.ie>
Date: Thu, 25 May 2023 11:27:53 +0100
Subject: [PATCH] remove old worker and clean up a bit

---
 src/Internal/Plutip/Server.purs | 34 ++++++---------------------------
 1 file changed, 6 insertions(+), 28 deletions(-)

diff --git a/src/Internal/Plutip/Server.purs b/src/Internal/Plutip/Server.purs
index 098a1c148..d6ae7d9b4 100644
--- a/src/Internal/Plutip/Server.purs
+++ b/src/Internal/Plutip/Server.purs
@@ -326,13 +326,6 @@ startPlutipContractEnv plutipCfg distr cleanupRef = do
       (stopChildProcessWithPort claritySyncServerPort)
       (const $ pure unit)
 
-  startClaritySyncWorker' :: Aff Unit
-  startClaritySyncWorker' =
-    bracket
-      startClaritySyncWorker
-      (stopChildProcessWithPort claritySyncServerPort)
-      (const $ pure unit)
-
   startOgmios' :: ClusterStartupParameters -> Aff Unit
   startOgmios' response =
     bracket (startOgmios plutipCfg response)
@@ -534,32 +527,17 @@ startClaritySyncServer = do
 startClaritySyncWorkerExec :: Aff ChildProcess
 startClaritySyncWorkerExec = liftEffect $ exec claritySyncWorkerCmdString
   defaultExecOptions
-  (\_ -> pure unit)
+  (const $ pure unit)
 
 claritySyncWorkerCmdString :: String
 claritySyncWorkerCmdString =
-  "clarity-sync-worker --ogmios-port 1338 --pg-conn \"host=localhost port=5432 user=clarity password=clarity dbname=clarity\" --ogmios-host \"127.0.0.1\" --from-tip"
-
-startClaritySyncWorker :: Aff ManagedProcess
-startClaritySyncWorker = do
-  spawn "clarity-sync-worker"
-    [ "--ogmios-port"
-    , ogmiosPortString
-    , "--pg-conn"
-    , postgresConnectionString
-    , "--ogmios-host"
-    , "localhost"
-    , "--from-tip"
-    ]
-    defaultSpawnOptions
-    Nothing
+  "clarity-sync-worker --ogmios-port 1338 \
+    \--pg-conn \"host=localhost port=5432 user=clarity password=clarity dbname=clarity\" \
+    \--ogmios-host \"127.0.0.1\" \
+    \--from-tip"
 
 postgresConnectionString :: String
-postgresConnectionString =
-  "host=localhost port=5432 user=clarity password=clarity dbname=clarity"
-
-ogmiosPortString :: String
-ogmiosPortString = "1338"
+postgresConnectionString = "host=localhost port=5432 user=clarity password=clarity dbname=clarity"
 
 claritySyncServerPort :: UInt
 claritySyncServerPort = UInt.fromInt 9001