Use Hedgehog.Gen.enumBounded

haskell · Jul 30, 2024 · 1c9dcc2 · 1c9dcc2
1 parent 2a09d02
commit 1c9dcc2
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/code/hsec-tools/test/Spec/FormatSpec.hs b/code/hsec-tools/test/Spec/FormatSpec.hs
@@ -80,12 +80,9 @@ genAffected =
 genComponentIdentifier :: Gen.Gen ComponentIdentifier
 genComponentIdentifier = Gen.choice $
   [ Hackage <$> genText
-  , GHC <$> genGHCComponent
+  , GHC <$> Gen.enumBounded
   ]
 
-genGHCComponent :: Gen.Gen GHCComponent
-genGHCComponent = Gen.choice $ map pure [minBound..maxBound]
-
 genCVSS :: Gen.Gen CVSS
 genCVSS =
   Gen.choice $