Skip to content

Commit 13ff994

Browse files
authored
Make plutus compile with both QuickCheck 2.15.. and 2.16 (#7314)
1 parent f1958b0 commit 13ff994

File tree

3 files changed

+8
-4
lines changed

3 files changed

+8
-4
lines changed

plutus-core/testlib/PlutusCore/Generators/QuickCheck/Builtin.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@
77
{-# LANGUAGE TypeApplications #-}
88

99
{-# OPTIONS_GHC -fno-warn-orphans #-}
10+
{-# OPTIONS_GHC -Wno-dodgy-imports #-}
1011

1112
module PlutusCore.Generators.QuickCheck.Builtin where
1213

@@ -32,7 +33,7 @@ import Data.Text (Text)
3233
import Data.Text qualified as Text
3334
import Data.Text.Encoding qualified as Text
3435
import Data.Vector.Strict qualified as Strict
35-
import Test.QuickCheck
36+
import Test.QuickCheck hiding (Some (..))
3637
import Test.QuickCheck.Instances.ByteString ()
3738
import Test.QuickCheck.Instances.Vector ()
3839
import Universe

plutus-core/untyped-plutus-core/testlib/Evaluation/Builtins/BLS12_381.hs

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,8 @@
44
{-# LANGUAGE OverloadedStrings #-}
55
{-# LANGUAGE TypeApplications #-}
66

7+
{-# OPTIONS_GHC -Wno-dodgy-imports #-}
8+
79
{- | Property tests for the BLS12-381 builtins -}
810
module Evaluation.Builtins.BLS12_381
911
where
@@ -23,9 +25,9 @@ import Data.ByteString as BS (empty, length, pack)
2325
import Data.List as List (foldl', genericReplicate, length, nub)
2426
import Text.Printf (printf)
2527

26-
import Test.QuickCheck
28+
import Test.QuickCheck hiding (Some (..))
2729
import Test.Tasty
28-
import Test.Tasty.QuickCheck
30+
import Test.Tasty.QuickCheck hiding (Some (..))
2931

3032
-- QuickCheck utilities
3133

plutus-core/untyped-plutus-core/testlib/Evaluation/Builtins/Costing.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33
{-# LANGUAGE TypeApplications #-}
44

55
{-# OPTIONS_GHC -fno-warn-orphans #-}
6+
{-# OPTIONS_GHC -Wno-dodgy-imports #-}
67

78
module Evaluation.Builtins.Costing where
89

@@ -22,7 +23,7 @@ import Data.Maybe
2223
import Data.SatInt
2324
import Test.QuickCheck.Gen
2425
import Test.Tasty
25-
import Test.Tasty.QuickCheck
26+
import Test.Tasty.QuickCheck hiding (Some (..))
2627

2728
deriving newtype instance Foldable NonEmptyList -- QuickCheck...
2829

0 commit comments

Comments
 (0)