abonerib/nix-serve-ng
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add debug output

Browse Source
This commit is contained in:
Aleix Boné 2025-10-03 17:28:01 +02:00
parent 70cd4f1ec5
commit 6c6b5d3377
No known key found for this signature in database
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

@ -6,6 +6,8 @@
module Main where module Main where
import Debug.Trace
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import Data.CharSet.ByteSet (ByteSet(..)) import Data.CharSet.ByteSet (ByteSet(..))
@ -273,6 +275,9 @@ makeApplication ApplicationOptions{..} request respond = do
SockAddrInet _ host -> isInWhitelist host SockAddrInet _ host -> isInWhitelist host
_ -> False _ -> False
traceM $ show (Wai.remoteHost request, isLocal)
traceM $ show (privateFilePath, isPrivate)
Monad.when (isPrivate && not isLocal) do Monad.when (isPrivate && not isLocal) do
let headers = [ ("Content-Type", "text/plain") ] let headers = [ ("Content-Type", "text/plain") ]