Skip to content

Commit 6d815c2

Browse files
newhoggyJohn Ky
authored andcommitted
Upgrade to hedgehog-extras-0.10.0.0
1 parent 7cb8c4d commit 6d815c2

3 files changed

Lines changed: 14 additions & 4 deletions

File tree

cabal.project

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ repository cardano-haskell-packages
1313
-- See CONTRIBUTING for information about these, including some Nix commands
1414
-- you need to run if you change them
1515
index-state:
16-
, hackage.haskell.org 2025-06-22T20:18:27Z
16+
, hackage.haskell.org 2025-09-10T10:05:13Z
1717
, cardano-haskell-packages 2025-09-15T19:20:34Z
1818

1919
packages:
@@ -64,4 +64,3 @@ if impl (ghc >= 9.12)
6464
allow-newer:
6565
-- https://github.com/kapralVV/Unique/issues/11
6666
, Unique:hashable
67-

cardano-cli/cardano-cli.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -331,7 +331,7 @@ library cardano-cli-test-lib
331331
exceptions,
332332
filepath,
333333
hedgehog,
334-
hedgehog-extras >=0.7.1,
334+
hedgehog-extras ^>=0.10,
335335
http-types,
336336
lifted-base,
337337
mmorph,

cardano-cli/test/cardano-cli-test/Test/Cli/Run/Hash.hs

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,12 @@
1+
{-# LANGUAGE FlexibleContexts #-}
2+
13
{- HLINT ignore "Use camelCase" -}
24

35
module Test.Cli.Run.Hash where
46

57
import Control.Monad (void)
68
import Control.Monad.Catch (MonadCatch)
9+
import Control.Monad.Trans.Control (MonadBaseControl)
710
import Control.Monad.Trans.Resource (MonadResource)
811
import GHC.Stack
912

@@ -24,7 +27,15 @@ hprop_hash_trip =
2427
-- Test that @cardano-cli hash --text > file1@ and
2528
-- @cardano-cli --text --out-file file2@ yields
2629
-- similar @file1@ and @file2@ files.
27-
hash_trip_fun :: (MonadTest m, MonadCatch m, MonadResource m, HasCallStack) => String -> m ()
30+
hash_trip_fun
31+
:: ( MonadBaseControl IO m
32+
, MonadTest m
33+
, MonadCatch m
34+
, MonadResource m
35+
, H.MonadAssertion m
36+
, HasCallStack
37+
)
38+
=> String -> m ()
2839
hash_trip_fun input =
2940
H.moduleWorkspace "tmp" $ \tempDir -> do
3041
hashFile <- noteTempFile tempDir "hash.txt"

0 commit comments

Comments
 (0)