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") ]