Show less context on failure (fixes #26)

hspec · Nov 29, 2023 · dc0fcd0 · dc0fcd0
1 parent 899cf9a
commit dc0fcd0
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Changelog for hspec-hedgehog
 
+## 0.2.0.0
+ - [#29](https://github.com/parsonsmatt/hspec-hedgehog/pull/29) @sol
+    - Show less context on failure.
+
 ## 0.1.1.0
 - [#30](https://github.com/parsonsmatt/hspec-hedgehog/pull/30) @sol
     - Show classification on success

diff --git a/cabal.project b/cabal.project
@@ -5,3 +5,9 @@ package hspec-hedgehog
   ghc-options: -Werror
 
 tests: True
+
+source-repository-package
+  type: git
+  location: https://github.com/sol/hedgehog
+  tag: 600abc71379c8642af15b8ddaa97f578bfa19a3b
+  subdir: hedgehog
diff --git a/src/Test/Hspec/Hedgehog.hs b/src/Test/Hspec/Hedgehog.hs
@@ -203,7 +203,7 @@ instance (m ~ IO) => Example (a -> PropertyT m ()) where
                Just (rng, _) -> pure (uncurry Seed (unseedSMGen (coerce rng)))
             hedgeResult <- checkReport propConfig size seed (propertyTest prop) cb
 
-            let renderResult color = Hedge.renderResult color (Just "property") hedgeResult
+            let renderResult color = renderResultWith (Context 3) color (Just "property") hedgeResult
 
             case reportStatus hedgeResult of
                 Failed FailureReport{..} -> do