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