Add missing CustomInstances.hs files

Author: thomasjm

kubernetes-1.20/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.21/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.22/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.23/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.24/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.25/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.26/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.27/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.28/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)

kubernetes-1.29/tests/CustomInstances.hs

@@ -0,0 +1,15 @@
+module CustomInstances where
+
+import Kubernetes.OpenAPI.Model
+
+import Test.QuickCheck
+import Data.Text (pack)
+
+instance Arbitrary IntOrString where
+  arbitrary =
+    oneof [ IntOrStringI <$> arbitrary
+          , IntOrStringS <$> (pack <$> arbitrary)
+          ]
+
+instance Arbitrary Quantity where
+  arbitrary = Quantity <$> (pack <$> arbitrary)