Skip to content

Commit 584fc87

Browse files
committed
Fix import and style
1 parent ad8279f commit 584fc87

File tree

3 files changed

+3
-8
lines changed

3 files changed

+3
-8
lines changed

Cabal/src/Distribution/PackageDescription/Check.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -70,7 +70,7 @@ import System.FilePath
7070

7171
import qualified Data.ByteString.Lazy as BS
7272
import qualified Data.Map as Map
73-
import qualified Control.Monad as CM
73+
import qualified Control.Monad as CM
7474
import qualified Distribution.Compat.DList as DList
7575
import qualified Distribution.SPDX as SPDX
7676
import qualified System.Directory as System

cabal-install/cabal-install.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -336,7 +336,7 @@ test-suite unit-tests
336336
tasty-quickcheck,
337337
tasty-hunit >= 0.10,
338338
tree-diff,
339-
QuickCheck >= 2.14 && <2.15
339+
QuickCheck >= 2.14.3 && <2.15
340340

341341

342342
-- Tests to run with a limited stack and heap size

cabal-install/tests/UnitTests/Distribution/Client/ArbitraryInstances.hs

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ import Distribution.Solver.Types.PackageConstraint (PackageProperty (..))
4444
import Data.Coerce (Coercible, coerce)
4545
import Network.URI (URI (..), URIAuth (..), isUnreserved)
4646
import Test.QuickCheck
47-
import Test.QuickCheck.GenericArbitrary
47+
import Test.QuickCheck.GenericArbitrary (genericArbitrary)
4848
import Test.QuickCheck.Instances.Cabal ()
4949

5050
-- note: there are plenty of instances defined in ProjectConfig test file.
@@ -107,11 +107,6 @@ arbitraryURIPort =
107107
-- cabal-install (and Cabal) types
108108
-------------------------------------------------------------------------------
109109

110-
shrinkBoundedEnum :: (Eq a, Enum a, Bounded a) => a -> [a]
111-
shrinkBoundedEnum x
112-
| x == minBound = []
113-
| otherwise = [pred x]
114-
115110
adjustSize :: (Int -> Int) -> Gen a -> Gen a
116111
adjustSize adjust gen = sized (\n -> resize (adjust n) gen)
117112

0 commit comments

Comments
 (0)