Fix GoldenExpectations

helvm · Jul 29, 2024 · 6c49bac · 6c49bac
1 parent 2a164ec
commit 6c49bac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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