From 6c49bacd3bdda80e6c302e682c0439d393f884cc Mon Sep 17 00:00:00 2001 From: Kamil Adam Date: Mon, 29 Jul 2024 19:14:11 +0200 Subject: [PATCH] Fix GoldenExpectations --- hs/test/HelVM/GoldenExpectations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hs/test/HelVM/GoldenExpectations.hs b/hs/test/HelVM/GoldenExpectations.hs index 0f349df..67e25dd 100644 --- a/hs/test/HelVM/GoldenExpectations.hs +++ b/hs/test/HelVM/GoldenExpectations.hs @@ -63,4 +63,4 @@ type GoldenIO a = IO $ Golden a instance Eq str => Example (GoldenExpectations str) where type Arg (GoldenExpectations str) = () evaluateExample wrapped params action callback = evaluateExample' =<< unGoldenExpectations wrapped where - evaluateExample' golden = evaluateExample golden params action callback + evaluateExample' unwrapped = evaluateExample unwrapped params action callback