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(..))
@@ -273,6 +275,9 @@ makeApplication ApplicationOptions{..} request respond = do
                                  SockAddrInet _ host -> isInWhitelist host
                                  _ -> False
 
+                traceM $ show (Wai.remoteHost request, isLocal)
+                traceM $ show (privateFilePath, isPrivate)
+
                 Monad.when (isPrivate && not isLocal) do
                     let headers = [ ("Content-Type", "text/plain") ]