Command-line option to disable or force tcpdumpHEADmaster

Changelog: Added comman-line options to set path of tcpdump or disable its use

1 files changed, 1 insertions, 1 deletions

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