Add debug output

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