Arbitrary instances for MapIgnoreUnknownKeys

haskell · Nov 3, 2024 · a1facfa · a1facfa
1 parent d1f92d4
commit a1facfa
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/test/ghcup-test/GHCup/ArbitraryTypes.hs b/test/ghcup-test/GHCup/ArbitraryTypes.hs
@@ -196,6 +196,11 @@ instance {-# OVERLAPS #-} Arbitrary v => Arbitrary (M.Map (Maybe Version) v) whe
 instance {-# OVERLAPS #-} Arbitrary v => Arbitrary (M.Map Platform v) where
   arbitrary = resize 8 $ M.fromList <$> arbitrary
 
+instance {-# OVERLAPS #-} Arbitrary v => Arbitrary (MapIgnoreUnknownKeys Platform v) where
+  arbitrary = resize 8 $ MapIgnoreUnknownKeys . M.fromList <$> arbitrary
+
+instance {-# OVERLAPS #-} Arbitrary v => Arbitrary (MapIgnoreUnknownKeys Architecture v) where
+  arbitrary = resize 8 $ MapIgnoreUnknownKeys . M.fromList <$> arbitrary
+
 instance {-# OVERLAPS #-} Arbitrary v => Arbitrary (M.Map (Maybe Versioning) v) where
   arbitrary = resize 8 $ M.fromList <$> arbitrary
-