From e2a44c2118c62817e26eb88ed3ac4f292b908047 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 7 Oct 2022 18:15:29 +0200
Subject: Packet loss command using netem qdisc

---
 src/Test.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Test.hs')

diff --git a/src/Test.hs b/src/Test.hs
index ab7e125..5a45930 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -37,6 +37,7 @@ data TestStep = forall a. ExprType a => Let SourceLine VarName (Expr a) [TestSte
               | Send (Expr Process) (Expr Text)
               | Expect SourceLine (Expr Process) (Expr Regex) [TypedVarName Text] [TestStep]
               | Guard SourceLine (Expr Bool)
+              | PacketLoss (Expr Scientific) (Expr Node) [TestStep]
               | Wait
 
 newtype SourceLine = SourceLine Text
-- 
cgit v1.2.3