More graceful failure

well-typed · Dec 20, 2024 · b7a8e9f · b7a8e9f
1 parent 4eedddd
commit b7a8e9f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/cabal.project b/cabal.project
@@ -4,6 +4,8 @@ packages: hs-bindgen-libclang
 packages: hs-bindgen-bootstrap
 packages: ansi-diff
 
+-- packages: /home/phadej/tree-diff
+
 tests: True
 benchmarks: True
 

diff --git a/hs-bindgen/tests/TastyGolden.hs b/hs-bindgen/tests/TastyGolden.hs
@@ -79,6 +79,8 @@ runGoldenSteps (GoldenSteps getGolden getTested cmp update) progress opts = do
     mbNew <- try $ getTested stepFn
     msgs <- readIORef msgsRef <&> reverse
 
+    print $ either (const 'x') (const 'y') mbNew
+
     case mbNew of
         Left e
             | Just _ <- fromException @AsyncException e -> throwIO e