From 7e57c8fddac5c9310efb49d4bc8003659b9e68b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 20 Jan 2026 21:49:22 +0100
Subject: Command-line option to disable or force tcpdump

Changelog: Added comman-line options to set path of tcpdump or disable its use
---
 src/Run.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Run.hs')

diff --git a/src/Run.hs b/src/Run.hs
index ad108e3..8a95daf 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -253,7 +253,7 @@ withSubnet parent tvname inner = do
 
 withNetwork :: Network -> (Network -> TestRun a) -> TestRun a
 withNetwork net inner = do
-    tcpdump <- liftIO (findExecutable "tcpdump") >>= return . \case
+    tcpdump <- asks (optTcpdump . teOptions . fst) >>= return . \case
         Just path -> withProcess (Left net) ProcNameTcpdump (Just softwareTermination)
             (path ++ " -i br0 -w './br0.pcap' -U -Z root") . const
         Nothing -> id
-- 
cgit v1.2.3