From 2ef34fe396a4acd430bc0a4950bb5420f95f6ef0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aleix=20Bon=C3=A9?= <aleix.boneribo@bsc.es>
Date: Fri, 3 Oct 2025 17:28:01 +0200
Subject: [PATCH] Add debug output

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 38452ba..3701e2c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,6 +6,8 @@
 
 module Main where
 
+import Debug.Trace
+
 import Control.Monad.IO.Class (liftIO)
 import Data.ByteString (ByteString)
 import Data.CharSet.ByteSet (ByteSet(..))
@@ -259,6 +261,10 @@ makeApplication ApplicationOptions{..} request respond = do
 
                 let isInternalClient = hostAddr >= Socket.tupleToHostAddress (10, 0, 0, 0) && hostAddr < Socket.tupleToHostAddress (11, 0, 0, 0)
 
+                traceM $ show (ByteString.Char8.unpack storePath, "private", isPrivate,
+                    "host", hostAddr,
+                    "isInternalClient", isInternalClient
+                    )
                 Monad.unless (isInternalClient || not isPrivate) do
                     let headers = [ ("Content-Type", "text/plain") ]