From a0d64dff3a520bf993a64e04da0c4ad1347b14e4 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Wed, 31 Aug 2022 10:12:27 +0200
Subject: [PATCH] test(SemVer): fix Arbitrary SemVer.Version to account for
 invalid Ord instance

---
 test/Model/TypesSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs
index 24f5bc4d2..ed98ad9b5 100644
--- a/test/Model/TypesSpec.hs
+++ b/test/Model/TypesSpec.hs
@@ -363,7 +363,7 @@ instance Arbitrary SemVer.Version where
     <*> fmap getNonNegative arbitrary
     <*> fmap getNonNegative arbitrary
     <*> arbitrary
-    <*> arbitrary
+    <*> mempty      -- Ord SemVer.Version ignores Metadata, so the Ord properties don't hold
 
 instance Arbitrary SemVer.Identifier where
   arbitrary = -- oneof