From 1f23e97cac7a541d9ec07a22720dd4cf86565db8 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 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index f77f4ba..ad4cd0c 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,7 @@ makeApplication ApplicationOptions{..} request respond = do
 
                 let isInternalClient = hostAddr >= Socket.tupleToHostAddress (10, 0, 0, 0) && hostAddr < Socket.tupleToHostAddress (11, 0, 0, 0)
 
+                traceM $ show ("private", isPrivate, "host", hostAddr, "isInternalClient", isInternalClient)
                 Monad.unless (isInternalClient || not isPrivate) do
                     let headers = [ ("Content-Type", "text/plain") ]