From e2381c89d5390071dc439b2db94054e702da32b8 Mon Sep 17 00:00:00 2001
From: sorki <srk@48.io>
Date: Sun, 10 Dec 2023 17:11:11 +0100
Subject: [PATCH] remote: less chatty server

---
 .../src/System/Nix/Store/Remote/Server.hs         | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/hnix-store-remote/src/System/Nix/Store/Remote/Server.hs b/hnix-store-remote/src/System/Nix/Store/Remote/Server.hs
index 61240759..0a17331a 100644
--- a/hnix-store-remote/src/System/Nix/Store/Remote/Server.hs
+++ b/hnix-store-remote/src/System/Nix/Store/Remote/Server.hs
@@ -42,6 +42,12 @@ type WorkerHelper m
     )
   => StoreRequest a -> m a
 
+chatty :: Bool
+chatty = False
+
+dbg :: MonadIO m => Text -> m ()
+dbg = when chatty . liftIO . Data.Text.IO.putStrLn
+
 -- | Run an emulated nix daemon on given socket address.
 -- The deamon will close when the continuation returns.
 runProxyDaemon
@@ -57,12 +63,12 @@ runProxyDaemon
 runProxyDaemon workerHelper postGreet lsock k = do
   liftIO $ listen lsock maxListenQueue
 
-  liftIO $ Data.Text.IO.putStrLn "listening"
+  dbg "listening"
 
   let listener :: m Void
       listener = do
         (sock, _) <- liftIO $ accept lsock
-        liftIO $ Data.Text.IO.putStrLn "accepting"
+        dbg "accepting"
 
         -- TODO: this, but without the space leak
         fmap fst
@@ -160,7 +166,7 @@ processConnection workerHelper postGreet sock = do
           loop
     loop
 
-  liftIO $ Data.Text.IO.putStrLn "daemon connection done"
+  dbg "daemon connection done"
   liftIO $ close sock
 
   where
@@ -176,7 +182,6 @@ processConnection workerHelper postGreet sock = do
             RemoteStoreError_SerializerHandshake
             workerMagic
 
-      liftIO $ print ("magic" :: Text, magic)
       when (magic /= WorkerMagic_One)
         $ throwError
         $ RemoteStoreError_WorkerException
@@ -195,8 +200,6 @@ processConnection workerHelper postGreet sock = do
 
       let leastCommonVersion = min clientVersion serverHandshakeInputOurVersion
 
-      liftIO $ print ("Versions client, min" :: Text, clientVersion, leastCommonVersion)
-
       when (clientVersion < ProtoVersion 1 10)
         $ throwError
         $ RemoteStoreError_WorkerException