From 8e3d03e55793b49dc6844b23877c84d111e8d7d1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 13 Sep 2025 21:35:02 +0200 Subject: Get call stack information from function application --- src/Test.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Test.hs') diff --git a/src/Test.hs b/src/Test.hs index 3e98efa..ce88052 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -49,7 +49,7 @@ data TestStep a where Send :: Process -> Text -> TestStep () Expect :: SourceLine -> Process -> Traced Regex -> [ TypedVarName Text ] -> ([ Text ] -> TestStep a) -> TestStep a Flush :: Process -> Maybe Regex -> TestStep () - Guard :: SourceLine -> EvalTrace -> Bool -> TestStep () + Guard :: CallStack -> Bool -> TestStep () DisconnectNode :: Node -> TestStep a -> TestStep a DisconnectNodes :: Network -> TestStep a -> TestStep a DisconnectUpstream :: Network -> TestStep a -> TestStep a -- cgit v1.2.3